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Capholul 8 Cuplări de echipamente periferice, 


interconectări şi aplicaţii 
ale microcalculatorului aMIC. 


În acest capitol se vor prezenta o serie de aplicații, care urmăresc atît 
extinderea gamei de echipamente periferice, cît şi utilizarea microcalculato- 
rului în cadrul unor sisteme dedicate. Astfel, se descriu aplicații referitoare la 3 

— cuplarea la microcalculatorul aMIC a unor LED-uri și comutatoare. 

— cuplarea la microcalculatorul aMIC a unui convertor numeric-analogic, 

— cuplarea  microcalculatorului aMIC cu microcalculatoarele FELIX 
M18, M118, 

— cuplarea la calculatorul aMIC a unui echipament de desenare şi indi- 
care pe ecran de tip „JOYSTICK“, 

— cuplarea unui convertor analog-numeric la microcalculatorul aMIG, 

— utilizarea  microcalculatorului aMIC pentru simularea unui circuit 
logic, 

— cuplarea miniimprimantei MIMA40 la microcalculatorul aMIC, 

— cuplarea unui programator de memorii de tip EPROM la microcal- 
culatorul aMIC, 

— microcalculatorul aMIC cuplat cu terminalul DAF2010, 

— interfaţarea microcalculatorului aMIC cu un minirobot, 

— folosirea microcalculatorului aMIC în cadrul unui echipament pentru 
testarea microsistemelor orientate pe magistrală. 

— utilizarea  microcaleulatorului aMIC ca unitate pentru deservirea 
mașinilor unelte, 

— utilizarea microcalculatorului aMIC ca sistem de înregistrare/redare a 
parametrilor semicontinui de proces, 

— utilizarea microcaleulatorului aMIC în laborator pentru prelucrarea 
datelor provenite din analiza cromatografică. 


8.1. Cuplarea unor LED-uri și comutatoare 


Utilizînd interfaţa paralelă de care dispune microcalculatorul personal 
se pot conecta la acesta diferite dispozitive numerice. Cel mai simplu exemplu 
îl reprezintă cuplarea unor led-uri şi comutatoare. 

Interfața paralelă este constituită dintr-uu circuit 8255 suplimentar, 
care are liniile porturilor A, B şi C, fiecare de cite 8 biţi, legate la un conector 
de pe earcasa microcaleulatorului. la portul A -s-an conectat 8 comutatoare, 
fiecare avînd posibilitatea să furnizeze independent. nivelele logice 1 sau $. 
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La portul C s-au conectat 8 led-uri, care vor fi stinse sau aprinse, după cum 


biții corespunzători ai circuitului 8255 sînt 1 sau (0. Schema este prezentată 
în figura 8.1. 
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Fig. 8.1. Cuplarea unor led-uri și comutatoare. 


Pentru această aplicație circuitul 8255 suplimentar a fost programat 


în modul () de lucru cu portul C pentru ieşire, iar porturile A şi B pentru intrare. 
Adresele acestor porturi sînt : 


— 40H : portul A ; — 42H : portul C; 

— 41H: portul B; — 43H 1 portul de comandă. 

În continuare se prezintă programul care realizează citirea permanentă 
a comutatoarelor și afişarea stării acestora la led-uri. 

Program de aplicație pentru interfa/a paralelă 


START: MVI A, 92H ; încarcă în acumulator cuvîntul de comandă 
OUT  43H ; transmite la circuitul 8255 
BUCLA : IN 40H ; citeşte portul A în acumulator 


CMA ; complementează acumulatorul 
OUT  42H1 ; transmite în portul C 
IMP BUCLA ; reluare. 


8.2. Cuplarea unui convertor numeric-analogic 


Microcalculatorul personal poate comanda un proces analogic simplu 
prin interfaţarea unui convertor numeric-analogic. Valoarea numerică ce este 


furnizată convertorului se obține ca urmare a unor calcule sau prin prelucrarea 
unor date externe. 


di 


Cuplarea unui convertor numeric-analogic 9% 


În acest exemplu s-a realizat interfațarea unui convertor numeric-analogic 
pe 8 biţi, DACO8, la magistrala sistemului. Acest lucru a fost posibil deoarece 
semnalele magistralei de date, adresele și comenzile au fost legate la un conec- 
tor de pe carcasă. Schema bloc a montajului este prezentată în figura 8.2. 
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Fig. 8.2. Schema bloc pentru cuplarea unui convertor numeric analogic. 


Aceasta se compune din logica de decodificare a adresei, un registru de date 
de 8 biţi şi convertorul DAC(8. Schema electrică completă a interfațării conver- 
torului se prezintă în figura 8.3. 

Realizarea semnalului analogic de la ieșire constă în înscrierea în registrul 
de date a unor valori numerice pe 8 biţi la momente de timp bine stabilite. 

În continuare se prezintă programul în limbaj de asamblare care reali- 
zează la ieşirea convertorului un semnal în dinți de fierăstrău. Transmiterea 
datelor se face prin instrucţiuni de ieșire (OUT) cu adresa 60H. 


Progrum de aplicaţii pentru DACOS. 


STARI: MVI A,0 ; înițializarea acumulatorului cu zero 
BUCLA: OUT  60H ; ieşire în registrul de date 
INR A ; incrementează acumulatorul 
JMP BUCLA ; salt la reluare. 
Pentru a varia perioada semnalului analogic se poate utiliza o subrutină de așteptare 7 


STARI: MVI A, ; inițializarea acumulatorului cu zero 
BUCLA: OUT  60H ; înscrie în registrul de date 
INR A ; încrementează acumulatorul 


CALL WAIT  ; reglează perioada semnalului 
IMP BUCLA ; salt la reluare 
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Fig. 8.3. Schema cuplării convertorului numeric-analog DACOB la ma- 
gistrala microcalculatorului „aMIC“, 
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WAIT: LXI  D,500H; această valoare reglează perioada 
PUSH PSW ; salvează acumulatorul 
ETl: DCX D decrementează contorul 


MOV A,D ; încarcă registrul D în A 

ORA E ; SAU logic între A şi E 

INZ  ET1 ; reluare dacă diferit de zero 
POP  PSW ; reface acumulatorul 

RET ; revenire în programul principal. 


8.3. Interconectarea cu microcalculatoarele Felix M15, M118 


Cuplarea microcalculatorului personal la sistemele de calcul FELIX M18 
şi M118 se face prin interfaţa serială standard RS 232. 

În acest scop „aMIC* a fost dotat cu un con ctor de 25 de contacte la 
care sînt legate semnalele circuitului 8251. Un conector asemănător există 
și la M18/118. 

Conectarea celor două sisteme se face printr-un cablu cu trei linii după 
schema prezentată în figura 8.4. Se utilizează conectori RACK cu 25 de contacte, 
de tip „tată“. 


a MIC M18/118 


Fig. 8.4. Cablul de interconectare „aMIC* — 
FELIX M18/118. 


Ceilalţi pini din conectori, naindicați în desen, sînt lăsați neconectaţi. 

Pentru realizarea comunicației pe fiecare din cele două sisteme rulează 
cîte un program. În continuare se prezintă un exemplu care transteră 100) de 
octeți din memoria microcalculatorului FELIX M18/118 de la adresa 6000H 
în memoria microcalculatorului „aMIG“ la adresa 6600H. Un asemenea procedeu 
este deosebit de util, deoarece pe M18/118 se pot introduce şi pune la punct 
programe complexe pentru „aMIC* utilizîndu-se resurse software evoluate 
disponibile pe aceste sisteme, apoi aceste programe sînt transferate la micro- 
calculatorul personal pentru a îi rulate. 


În scopul realizării transferului de date pe microcalculatorul „aMIG* 
se rulează un program de recepţie a octeţilor transmişi pe linia serială. 
; Program de recepție a datelor pe linia serială 


START: MVI  A,0CEH ; cuvîntul de mod 
OUT. 1 ; transmite la 8251 
MVI  A,27H ; cuvintul de comandă 
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OUT 1 ; transmite la 8251 
LXI O H,6600H ; în H, L adresa de început 
MVI  C,1909 ; contorul de octeți 
BUCLA : IN 1 ; bucla de citire a stării circuitului 8251 


ANI 2 ; test bit 1 

JZ BUCLA  ; dacă 0,așteaptă 

IN [/) ; citește octet 

MOV M,A ; înscrie în memorie 
INX H ; incrementează adresa 


DCR C decrementează contorul 
INZ BUCLA dacă diferit de zero, reface 
IMP 9 ; altfel intră în monitor 


Pe microcalculatorul FELIX M18/118 rulează un program de transmisie a octeților dim 
memorie pe linia serială. 
Program de transmisie a datelor pe linia serială 


START: MVI  A,40H ; cuvintul de comandă pentru 8251 


OUT  0F7H ; realizează iniţializarea circuitului 
MVI  A,0CEH ; cuvintul de mod 
COUT  0F7H ; transmite la 8251 
MVI  A,27H ; cuvintul de comandă 
OUT  0E7H ; transmite la 8251 
LXI O H,6000H ; în H, L adresa de început 
MVI  C, 100 ; contorul de octeți 
BUCLA : IN VF7H ; citește starea 
ANI 4 ; test bit 2 


JZ BUCLA  ; dacă este zero, așteaptă 
MOV A,M ; citește octet din memorie 
OUT  0F6H ; transmite la 8251 

INX H ; incrementează adresa 

DCR C ; decrementează contorul 
INZ BUCLA  ; dacă diferit de zero, reluare 
RST 0 ; revenire în monitor 


Cele două programe se execută în acelaşi timp, dar cu mențiunea că pro- 
gramul de recepţie a datelor se lansează primul. 


8.4. Cuplarea unui JOYSTICK 


Joystick-ul este un dispozitiv utilizat în conjuncţie cu terminalele grafice 
pentru specificarea manuală, de către utilizator, a coordonatelor unui punct 
pe ecran. 

Joystick-ul constă dintr-o articulaţie sferică, cu o manetă fixată de partea 
sferică mobilă, ale cărei deplasări unghiulare sînt transformate în variaţii 
ale rezistenţei electrice a doi potențiometri, corespunzînd coordonatei orizon- 
tale, respectiv verticale. Variaţiile de rezistență sînt transformate apoi în va- 
riații de semnal electric, care — la rîndul lor — sînt convertite în valori numerice. 
Aceste valori numerice sînt preluate de sistemul de calcul și, prin metode 
s oftware sau hardware (la echipamentele care cer viteză mare de lucru), sînt 
transformate într-un punct sau cursor grafic, afișat pe ecran. Este posibilă 
afişarea întregului traseu impus punctului curent, adică desenarea comandată 
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de la joystick. Este, de asemenea, posibilă introducerea unor funcţii suplimen- 
tare, care să permită utilizarea acestui dispozitiv în diferite aplicaţii. 

Cuplarea unui joystick la microcaleulatorul „aMIC“ se face prin interme- 
diul interfeţei paralele, utilizînd numai patru biţi ai circuitului 8255. Schema 
prezentată în figura 8.5 conţine două circuite CDB4I21E. 


MIbEo 
s. „DELETE 


say e DRAW 


sat 


Fig. 8.5. Interfaţă pentru joystick. 


CDB4121E este un circuit basculant monostabil avînd două intrări de 
condiționare active pe front negativ şi o intrare activă pe front pozitiv. Tabela 
de funcţionare și configuraţia pinilor sînt prezentate în figura 8.6. Durata 
impulsului obținut la ieşire se poate varia între 20) ns şi 28 s utilizînd compo- 
nente pasive externe. Fără componente externe, avînd intrarea Rint conectată 


INTRĂRI IEȘIRI: 
BE ES 5 
L 
L 
L 
L 
1 a 3 
= ji Bi 
= pa 
sf 
mii 


H —nivel logic 1 
L —nivel logic O 


e Pe e e E SO SEE 
mXka Te II Xxrx 
„TITI Xr II 


Fig. 8.6. Tabela de funcţionare şi configurația pinilor la circuitul CDB 421E. 
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la Vcc, iar intrările Cest Și Rext/Cex+ lăsate neconectate, se obține un impuls 
cu durata spec fică de 30—35 ns. 


Pentru valori ale capacităţii externe cuprinse între 10pF şi 10 pF iar 


ale rezistenţei externe cuprinse între 2KQ0 şi 40 KO durata impulsului t se 
calculează cu formula : 


tu =0,7 Ce a Rest 


în care capacitatea este în pF, rezistența în KO, iar durata impulsului se ob- 
ține în ns. 

Pentru determinarea valorilor potențiometrelor, deci pentru a determina 
poziţia curentă pe ecran, se furnizează un impuls pozitiv (trecere de la (0 logic 
la 1 logic) pe bitul 0, respectiv 1 al portului C din circuitul 8255. După furnizarea 
unui asemenea front pozitiv, se așteaptă prin program o perioadă de timp 
care corespunde cu valoarea minimă a rezistenţei potenţiometrului (poziţia 
stînga pentru orizontală, respectiv poziţia sus pentru verticală), după care 
începe contorizarea pînă la terminarea impulsului furnizat de monostabil 
(trecerea din 1 logic în () logic a ieșirii Q a acestuia) şi care este citit prin portul 
B în bitul 0, pentru orizontală, respeeliv în bitul 1, pentru verticală. Bucla 
de contorizare din program este în așa fel calibrată încît, cu aproximaţie, să 
se înregistreze o valoare cuprinsă între 0 şi FFH, corespunzătoare celor două 
poziţii extreme (pe orizontală şi — de asemenea — și pe verticală). În figura 
8.7 se prezintă semnificaţia valorilor celor două contoare şi modul de determinare 
a adresei octetului pentru memoria ecran și al bitului din cadrul octetului de 
date. Deoarece memoria ecran este cuprinsă între adresele 4000H—5FFFH, 
în poziţiile cele mai semnificative A15—A13 se găseşte configuraţia 010. 


VERT ORIZ 
DE Dă Dl 7 Dă 3 2130 


Determină bitul 
în cadrul 
octetului 


1514131211098 P*015 4 91210 
ADRESA 


Fig. 8.7. Determinarea adresei din memoria video și octetul de 
date, pornind de la valorile celor două contoare VERT şi ORIZ. 


Ceilalţi biţi de care dispune interfaţa paralelă se pot utiliza pentru imple” 
mentarea unor funcţii. În exemplul considerat se utilizează încă 6 biţi din por- 
tul B al circuitului 8255, avind următoarele semnificaţii : 

— PB7: RESTART — relansează programul de joystick ; 

— PB6: MONITOR — execută revenirea în monitor (start de la adresa 0y 
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— PB5:; DISPLAY — anulează o funcţie anterioară, realizind numai 
afişarea punctului curent, fără să modilice imaginea de pe 
ecran (deci nici memoria video) ; 

— PB4: DRAW — marchează traseul parcurs de la punctul curent pe 
ecran prin puncte aprinse (biţi O în memoria video): 

— PB3: DELETE — şterge contururile de pe traseul parcurs de punctul 
curent, adică stinge punctele aprinse. În memoria video se 
înserie 1 în biții egali cu () de pe traseu; 

— PB2: VIDEO — schimbă polaritatea punctelor de pe traseu (execută 
video invers). Această funcţie înscrie 1 în biții egali cu 0, res- 
pectiv înscrie 0 în biții egali cu 1 din memoria video. 

Programul de interfaţă pentru joystick este scris în limbaj de asamblare, 

iar organigrama sa este prezentată în figura 8.8. După lansarea programului 
În execuţie, dacă nu se apasă nici un buton funcţional, ecranul este şters și se 
afișează punctul curent care se deplasează simultan cu acţionarea joys tick-ului, 


INITIALIZĂRI 


Start 
adreso & 


Fig. 8.8. Programul de interfaţă pentru joystick (organigramă) 
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Dacă se apasă oricare din butoanele DRAW, DELETE sau VIDEO, 
se execută în continuare funcţia respectivă (fără ca să se menţină butonul 
apăsat), pînă cînd se apasă unul din butoanele RESTART, MONITOR sau 
DISPLAY. 

Programul prezentat în acest exemplu realizează o traducere a poziției 
articulației joystick-ului în coordonate pe ecran (respectiv adresă și octet de 
date pentru memoria video). Dezavantajul acestei soluţii este o sensibilitate 
deosebită a punctului curent (cursorului) de pe ecran faţă de orice mişcări 
ale tijei dispozitivului. Pentru eliminarea acestui neajuns se pot utiliza alte 
metode de interfațare a joystick-ului, ca de exemplu : 

— poziţia tijei (a articulației) să indice direcția dintr-un număr finit 
şi eventual mic de direcţii posibile şi viteza (trepte discrete de viteză) pentru 
cursorul de pe ecran. Deplasarea 
se face din poziţia curentă în 
direcţia şi cu viteza date de 
joystick. Poziţia centrală a tijei 
corespunde cu poziţia de repaus 
a cursorului. Această soluție este 
ilustrată în figura 8.9, pentru 
8 direcţii posibile şi două trepte 
de viteză; 

„— cu ajutorul joystick-ulu 
se marchează un punct pe ecran 
după care o funcţie implementată 
pe sistem realizează unirea punc- 
tului curent cu noul punct mar- 
cat ; în felul acesta se pot exe- 


cuta desene pe ecran cu o 


recizie maximă „în limitele rezo- 
Big. 8.9. Interpretarea poziţiilor tijei joystick- POZE Maxim, 
ului, luţiei disponibile. 


REPEDE 
DREAPTA 


REPEDE 


REPEDE 
JOS 


; Program de interfață pentru joystick 


ORG  6100H 
START: LXI  SP,STIVA ; iniţializare indicator de stivă 
CALL CLEAR ; şterge ecranul televizorului 
MVI A,9%H ; cuvînt de comandă: mod ( 
OUT  43H ; înscrie în 8255 
LXI  H,4000H ; îniţializare ADR2 
SHLD ADR2 
MOV A,M ; citește octet din memoria video 
STA  DAT2 ; iniţializează DAT2 
ET2: CALI PORTB ; citeşte port B şi test biții 7, 6, 5 
JZ ET1 ; salt dacă PB7=—PB6=PB5=1 
ETA: RAL ; în CY trece PB? complementat 
JC START ; dacă PB7=(0), relansare program 
RAL ; în CY trece PB6 complementat 


JC 0 dacă PB6=0, revenire în monitor 
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secvența DISPLAY pentru PB5=6 


DISPL : CALL 
LHLD 
LDA 
MOV 
LHLD 
MOV 
STA 
SHLD 
MOV 
LDA 
ANA 
MOV 
IMP 

ETI!: MOV 
ANI 
INZ 


COORD 
ADR2 
DAT2 
M, A 
ADR1 
A, M 
DAT2 
ADR2 
B, A 
DATI 
B 

M, A 
ET2 
A,B 
10H 
ET3 


; secvenţa DRAW pentru 


DRAW: CALL 
LHLD 
MOV 
LDA 
ANA 
MOV 
CALL 
INZ 
IMP 

ET3: MOV 
ANI 
INZ 


COORD 
ADRI 
B, M 
DATI 
B 

M, A 
PORTB 
ET4 
DRAW 
A,B 

8 

ET5 


. 
» 
. 
» 
» 
Ei 
, 
» 
» 
> 
» 
» 
» 
Ei 
» 


» 
» 


» 


determină coordonatele curente 
în H, L vechea adresă 


; în H, L vechiul octet 


reface în memoria video 
în H, L noua adresă 


; citește octetul de date 


salvează data 

și adresa 

salvează în registrul B 

încarcă în A noul octet de date 
aprinde punctul curent 

înscrie în memoria video 
reluare 


; reface A cu conţinutul portului B 
; testează bitul PB4 
; salt dată PB4=1 


PB4=0 


Hi 
» 
» 
» 
» 
» 
Li: 
» 
» 
» 
» 


determină coordonatele curente 

în H, L noua adresă 

în B octetul de date vechi 
citește noul octet de date 
aprinde punctul curent 

înscrie în memorie 

citește port B și test biții 7, 6, 5 
salt dacă cel puţin un bit este 0 
altfel, reluare 

reface A cu conţinutul portului B 
testează bitul PB3 

salt dacă PB3=1 


3 secvenţa DELETE pentru PB3=0 


DELET : CALL 
LHLD 
MOV 
LDA 
CMA 
ORA 
MOV 
CALL 
INZ 
IMP 

ET5: MOV 
ANI 
INZ 


COORD 
ADR1 
B, M 
DATI 


B 

M, A 
PORTB 
ET4 
DELET 
A,B 

4 
DISPL 


» 
» 
» 
» 
, 
» 
» 
» 
, 


determină coordonatele curente 
în H, IL. noua adresă 

; citește în B vechiul octet 
încarcă în A noul octet 
complementează 

stinge punctul curent 

înscrie în memoria video 

citește port B și testează biții 7, 6, 5 
salt dacă cel puţin un bit este Ș 
reluare 

relace A cu conţinutul portului B 
testează bitul PB2 

salt dacă PB2=1 


3 secvenţa VIDEO pentru PB2=40 


VIDEO: CALL 
LHLD 
MOV 


LDA 
CMA 
XRA 
MOV 
CALL 
INZ 
IMP 


COORD 
ADRI 
B, M 
ADRI 


B 

M, A 
PORTB 
ET4 
VIDEO 


» 


determină coordonatele curente 


; în H, L noua adresă 


» 
» 
, 
» 
» 
, 
» 


Ei 


în B octetul de date vechi 


; în A noul octet 


complementează octet 


; complementează punctul curent 

; înscrie în memorie 

; citește portul B și testează biții 7, 6, 5 
; salt dacă cel puţin un bit este 0 

; reluare 
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3 subrutina COORD 

p determină coordonatele punctului curent 

ş furnizează la ADR1 adresa din memoria video 
ș și la DATI octetul de date 


&OORD:MVI D,2 ; setează bitul 1 
CALL XY ; determină coordonata X 

STA  ORIZ ; memorează și variabila ORIZ 
MVI D,1 ; setează bitul 

CALL XY ; determină coordonata Y 

STA  VERT ; memorează în variabila VERT 


| secvența care determină adresa pentru memoria ecran 
1 și octetul de date 


LXI OH, 4000H1 inițializare H, L 


LDA  ORIZ ; citește contorul pentru orizontală 
ANI  0FBH ; anulează biții A2-A0 
RRC ; aduce A7-A3 în poziţiile A4-AG 
RRC 
RRC 
MOV L,A ; încarcă în registrul L 
LDA  VERT ; citește contorul pentru verticală 
ANI 7 ; preia biții A2-A0 
RRC ; aduce informația în poziţiile A7-A5 
RRC 
RRC 
ORA L ; concatenează cu informaţia din L 
MOV L,A ; încarcă în registrul L. octetui mai puţin semnificativ de 
; adresă 
LDA  VERT ; citește contor pentru verticală 
ANI FSH ; preia biții A7-A3 
RRC ; aduce în poziţiile A7-AG 
RRC 
RRC 
ORA H ; concatenează cu informația din H 
MOV H,A ; încarcă în registrul H octetul mai semnificativ do adresă 
LHLD ADRI1 ; depunde adresa la ADRI1 
LDA  ORIZ ; citeşte contorul pentru orizontală 
ANI 7 ; preia biții A2-A0 
MOV L,A ; încarcă în L 
MVI  A,7FH ; iniţializare octet date 
INR L 
4D2: DCR L ; poziţionează indicatorii 
32 ADI ; dacă L=0, stop 
RRC ; altfel, deplasează bit=() (punct aprins) 
JMP  AD2 ; reluare 
4AD1: STA DATI ; depune octetul de date la adresa DATI 
RET i 


ș subrutina XY 

) poziţionează contorul pentru orizontală 

$ sau pentru verticală 

| furnizează rezultatul în A (contor între () şi FFH) 


XY: MVI A,0 ; bit O, bit 1==0 din portul C al circuitului 8255 
OUT  42H ; trimite la 8255 
MOV A,D ; poziţionează pe 1 bitul corespunzător pentru orizoatală 
; sau pentru verticală 
OUT  42H ; trimite la 8255, declanșează monostabilul 
MVI CC, 0FFH ; iniţializare contor 
XYI: IN 41H ; citește port B al circuitului 8255 


ANA D ; test bit 1/6 
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JZ XY1 ; așteaptă impulsul monostabilului 

MVI A,4 ; secvența se execută de patru ori 
WAIT: MVI  B,84H ; contor 

DCR B 

INZ  WAIT+2 

DCR A 

INZ WAIT 


începe incrementarea contorului 
XY2: INR C 


IN 41H ; citește port B 
ANA D ; test bit 0/1 
NOP ; calibrarea contorizării 
NOP 
NOP 
INZ  XY2 ; așteaptă terminarea impulsului 
MOV A,C ; transferă rezultatul în A 
RET 
; zona de variabile program 
ORIZ: DS 1 ; contorul pentru orizontală 
VERT: DS 1 ; contorul pentru verticală 
ADRI1: DS 2 ; adresa nouă pentru memoria video 
ADR2: DS 2 ; adresa veche 
DATI: DS 1 ; noul octet de date 
DAT2: DS 1 ; vechiul octet de date 
DS 10 ; stiva program 
STIVA: DS Şi 


END START 


8.5. Cuplarea unui conventor analog-numeric 


Microcalculatorul personal are posibilitatea să efectueze măsurări de 
mărimi analogice, eventual extrase dintr-un proces, prin conectarea unui con- 
vertor analog-numerie. Interfaţarea convertorului la sistem se face prin tircui- 
tul 8255 suplimentar (interfața paralelă). Se poate executa conversia unei 
singure mărimi analogice sau a mai multora succesiv ; în acest ultim caz, 
mărimile analogice sînt aduse la intrarea convertorului prin intermediul 
unui multiplexor analogic. Selecţia, intrăriloră multiplexorului se tace prin 
intermediul circuitului 8255. 

Schema de principiu este prezentată în figura 8.10. Se utilizează un per 
plexor analogic 16 : 1, iar selecția se realizează prin biții PC3-PCO ai portului 
& din circuitul 8255. Convertorul analog-numeric este pe 12 biți, avînd o intrars 
de comandă START conversie, conectată la bitul PC7 al circuitului 8255. Un 
front pozitiv pe această intrare lansează operaţia de conversie. Biţii de date 
inferiori D0—D7 sînt conectaţi la pinii PAD-PA7, iar biții de date superiori 
D8-D11 la pinii PBO-PB3. De asemenea, convertorul mai dispune de un semnal 
pentru a anunţa sfîrşitul conversiei, STOP: conversie, conectat la pinul PB7. 

În continuare se prezintă lista instrucțiunilor de intrare/ieșire şi semniti- 
caţiile fiecăreia : 

OUT 42H ; biții A3—A0 selectează una din cele 16 intrări analogice 
OUT 42H ; bitul A7=1 lansează operaţia de conversie 
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INTRĂRI 
ANALOGICE 


ULTIPLEXOR 
ANALOGIC 
166:1 


SELECTIE 
Sp S1 S2 S3 


Fig. 8.10. Cuplarea unui convertor analog-numeric. 


IN 41H; citește în A7 bitul STOP conversie 
IN 40H; citeşte în A7—AG biții de date D7—D0 numai după terminarea 
; conversiei 

IN 41H; citeşte în A3—AV biții de date D11—D8 
OUT 42H ; bitul A7=—() resetează convertorul 

Programul care urmează execută succesiv conversia analog-numerică a 
celor 16 intrări înscriind rezultatele în memorie, fiecare pe cite doi octeți în- 
cepînd de la adresa LISTA. 


; Program de interfațare a unui convertor analog-numeric 


înscrie în memorie 


MVI  A,92H ; programare circuit 8255 
OUT  43H ; trimite în portul de comandă 
LXI  H,LISTA ; H, L conţin adresa în zona de memorie 
MVI B,0 ; selecţie intrare analogică 

ET1: MOV A,B ; transferă cod de selecţie în A 
OUT  42H ; resetează convertorul A7-0 
ORI  80H ; A7=1 
OUT  42H ; start conversie 

ET2 : IN 41H ; citeşte starea 
RAL ; A7=STOP trece în CY 
INC  ET2 ; dacă STOP=40, așteaptă 
IN 40H ; citeşte biții de date D7-Dp 
MOV M,A ; înscrie în memorie 
INX H ; incrementează adresa de memorie 
IN 41H ; citeşte biții de date D11-D8 
ANI  0FH ; selectează biții A3-AQ 


MOV M,A 
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II EI ; incrementează adresa de memorie 
INR B ; incrementează contorul de selecţie 
ANI  0FH ; test sfîrșit achiziţie 

INZ  ET1 ; reia dacă nu este gata 

IMP NEXT ; altfel execută prelucrarea datelor 


8.6. Simularea unui circuit logic 


Microcalculatorul „aMIC“ poate fi utilizat în /proiectarea schemelor 
logice, înlocuind iaza de sinteză a circuitelor și de punere la punct cu ajutorul 
osciloscopului, analizorului logic etc. 

În acest fel se poate economisi timp și efort material. Pentru exemplifi- 
care, se consideră o interfață simplificată care conectează un echipament peri- 
feric de ieșire la un microsistem construit tot cu microprocesorul 280) (figura 8.11). 


ECHIPAMENT 
PERIFERIC 


INTERFATA 


MICROSISTEM 
CU 
Z 80 


Fig. 8.11. Interfaţarea unui echipament periferic la un 
microsistem cu Z80. 


Interfața este cuplată la magistrală prin următoarele semnale (figura 8.12) : 


— RESET : activarea acestur semnal are ca efect iniţializarea interfeţei 
şi abandonarea eventualei operaţii curente ; 


RESET 


IORG 


INTERFAȚA 


Mi 
MAGISTRALA îIR PENTRU UN CO / ECHIPAMENT 
SISTEM ECHIPAMENT PERIFERIC 
mi DE B 
IEŞIRE 


Fig. 8.12. Semnalele conectate la interfața. 
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— IORQ 'activ;(0 logic) şi MI inactiv (1 logic) indică ciclu de I/E ; 

— WR activ (0 logic) indică sensul transferului (de la UCP la echipamen- 
tul periferic). 

— A5 este utilizat pentru selectarea interfeţei. Deoarece microsistemul 
are un număr redus de dispozitive de intrare/ieşire, în cadrul octetului de adresă 
de I/E biții A7—A2 sînt utilizaţi pentru selectarea cîte unui circuit (fiecare 
bit, activ pe 0, controlează un dispozitiv), iar biții A1 şi A, eventual pentru 
selectarea porturilor interne. Deci în octetul de adresă pentru interfaţă bitul 
A5 este 0, toţi ceilalți biţi fiind 1. 

— "WATT este conectat la intrarea WAIT a microprocesorului, permițînd 
adaptarea vitezei de lucru a unităţii centrale de prelucrare la viteza echipamen- 
tului periferic. 

Semnalele generate de interfață pentru echipamentul periferic de ieşire 
sînt următoarele : 

— GO, generat la selectarea interfeţei și utilizat pentru preluarea 
datelor de pe magistrală într-un registru de date; 

— BUSY, generat de activarea semnalului GO şi avînd o durată fixă, 
0.5 ms, timp în care echipamentul realizează operația de transfer a datelor 
pe suport extern. 

În figura 8.13 se prezintă diagrama de semnale pentru un ciclu de acces 
la interfață (a) și schema electrică (b). 


IORQ 


MI 


Ag A7 


WR 
E AI 


a) 


GO i — cae 
BUSY 
WAIT 


fe CDB 420E 44 


Fig. 843. Diagrama de semnale (a) și schema (5) ale intertaței. 
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În loc să se construiască 
fizic această schemă și să se veri- 
fice prin metode hardware, utili- 
zînd osciloscop, analizor logic, 
etc. ... funcţionarea corectă se 
poate verifica prin program, uti- 
lizînd microcaleulatorul „aMIC“. 
Conectarea microcalculatorului la 
microsistemul cu Z8) se poate 
face prin interfaţa paralelă. În 
acest scop se utilizează un circuit 
Z8)—PIO cuplat extern la ma- 
gistrala „aMIC“-ului. În figura 8.14 
este prezentat circuitul Z8O-PIO 
şi semnalele de cuplare la ma- 
gistrală. Fig. 8.14. Cuplarea eirsuitului Z80-PIO la 

Astfel, în microsistemul cu magistrala microealculatorului „aMICe, 
Z80 interfața de testat a fost 
înlocuită cu microcalculatorul „aMIC“ (fig. 8.15). Semnalele interfeţei de 
cuplare la unitatea centrală de prelucrare și la echipamentul periferic de 
ieșire, au fost legate la liniile portului A din circuitul Z80-PIO, programat 
în modul 3 (control bit). : 


MICROSISTEM 
CU 
Z80 


MAGISTRALA 


Fig. 8.15. Schema de principiu pentru simularea 
interfeței. 


Deoarece intrarea CE a circuitului a fost conectată la ieşirea 3 a decodifi- 
catorului (CDB442E) de adrese de I/E (semnalul PIO), iar terminalele 6/D 
Sel şi B/Ă Sel la liniile de adresă AB, respectiv AB1 rezulţă adresele porturilor 
din circuit (biții neutilizați s-au considerat 6): 

60H : port?A date; 

61H : port A control; 


62H : port B date; 
63H : port B control. 


Asignarea semnalelor interfeţei la liniile portului A este prezentată în 
figura 8.16. 
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Programul de simulare cuprinde trei secvențe principale : 


— secvența de inițializare, inclusiv programarea circuitului Z8PPIO 
(figura 8.17) ; 
tă MEM 
RESET SORA 
IORQ Semnale 
Mi conectate 
XR la 1 780 P10 
interfață 
as Doe Di El] 
GO echip. A 5600 
BUSY periferic 
WAIT 


Fie. 


94 
FER, dai Xa 9 AM, ere! 


8.16. Asignarea semnalelor inter- 
feţei la liniile portului A din Z80-PIO. 


Fig. 8.18. Răspunsul la întreruperea ge- 
nerată de Z80-PIO. 


cuvinf de mod 


EXIT 


liniile 4-— “iniie 20 programate pentru intrare 
liniile 7-5 programate pentru iesire 


LE A Bale) control pentru întreruperi 
urmează masca 
liniile care pot genera întreruperile sînt active pe O 


condiție AND/OR [există o singură linie ) 
intrerupere activată 


? 6 
pt 
mod 3 
_1FH 
97H. [1170.010.111] 9) 
PEH: 


ERIE O poate genera întrerupere 


Li liniile 7-1 mascate 


005 |0 0000000 


vectorul de adresă 


Fig. 8.17. Cuvintele de control pentru programarea circuitu-- 


iui Z89-PIQ. 
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— bucla de simulare ; 
— subrutina de tratare a întreruperii generate de activarea semnalului 
RESET (tehnica de răspuns prezentată schematic în figura 8.18). 


1 Progrumareu circuitulu: Z80-PIO 


; setează modul 3 (control bit) 
; transmite în portul A control 
LD A, 1FH ; liniile 7, 6, 5 programate pentru 
; ieșire și liniile 4, 3, 2, 1, 0 pentru intrare 


LD A, 97H cuvîntul de control pentru întreruperi 
OUT  (61H),A 

LD A, 0FEH ; numai bitul 0 (RESET) poate genera 
OUT  (61H),A ; întrerupere 

LD A, 0 ; vectorul de întreruperi 


OUT (61H),A 
; Iniţializarea sistemului de întreruperi la UCP 


IM2 ; setează modul 2 de răspuns la întreruperi 
LD A, 66H ; încarcă registrul I 
LD IA 


LD HL, 7000H  ; adresa subrutinei de tratare a întreruperii 
LD (6609H), HL ; memorează la adresa 6600H şi 6601H 


; Iniţializare semnale de ieșire PIO 


SIMUL: LD A, 80H ; iniţializare port A 
OUT  (60H),A ; WAIT=1, G0=0, BUSY=0 
EI ; activarea sistemului de întreruperi 


; Bucla de simulare a interfeţei 
; Aşteaptă selectarea interfeţei 


BUCLA : IN A, (60H) ; citeşte liniile portului A 
AND 1EH ; selectează biții 4, 3, 2, 1_ __ 
XOR 4 ; testează semnalele A5, WR, MI, IORQ 


JR NZ, BUCLA ; dacă cel puţin un bit nu este activ așteaptă 


; Interiaţa a fost selectată, ACC=(0 


IN A, (60H) ; citește portul A 
SET 5,A ; poziţionează GO=1 
LN OUT  (60H),A ; înscrie în portul A 
; Trecerea în 1 a semnalului GO declanșează monostabilul 74121 
SET 6,A ; poziţionează BUSY=1 
OUT  (60H),A ; înscrie în portul A 
; Activarea lui BUSY, resetează semnalul GO 
RES. -5,A ; poziţionează GO0=0 
OUT  (60H),A ; înscrie în portul A 
; Întirziere de 0,5 ms, timp necesar pentru terminarea operaţiei de ieșire 
LD A, 3DH ; constanta de întirziere pentru 
DELAY :DEC A ; frecvența ceasului 2MHz 


IR NZ, DELAY 
; La sfirșit dezactivează BUSY și WAIT 


IN A, (60H) ; citește portul A 
SET 7,A ; WAIT=1 
RES 6,A ; BUSY=0 
OUT  (60H),A ; înscrie în portul A 
; Aşteaptă terminarea accesului 
STOP: IN A, (60H) ; citește portul A 
AND 1EH ; selectează biții 4, 3, 2, 1 


XOR 4 ; inversează MI (semnale active pe $) 
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JR Z, STOP ; dacă ACC=(, așteaptă 
JR LOOP ; dacă ACC=1, reia secvenţa 


; Subrutina de tratare a intreruperii generate 
; de activarea semnalului RESET 


ORG  7000H 

EX AF, AF ; salvare stare program 

EXX ; numai dacă este necesar — în acest exemplu ; nu este necesar 

POP |HL ; înlocuiește adresa de revenire din 

LD HL, SIMUL ; stivă cu adresa de relansare a 

PUSH HL ; programului de simulare 

EX AF, AF ; aceste două instrucţiuni nu sînt 

EXX ; necesare — în general sint utilizate pentru refacerea stării 
; programului întrerupt 

RETI ; return 

END 


8.7. Cuplarea la microcalculator a unei 
miniimprimante MIM49 


Miniimprimanta  MIM40 (produsă la Electromureș Tg. Mureș) este o 
imprimantă paralelă cu 40 de caractere într-un rînd, fiecare coloană de caracter 
fiind formată din 7 puncte, fiecărui punct îi corespunde în sistemul electrio 
de imprimare un ac de imprimare. 

Formatul unui caracter este dat în figura 8.19 (7 linii X 9 coloane). 

Fiecare punct din matricea de imprimare este controlat prin soitware. 

Din punct de vedere mecanic, transportul capului de imprimare se reali- 
zează cu un tambur dispunînd de un ghidaj elicoidal ca în fig. 8.20. 


Fig. 8.19. Formatul unui caracter  Pig. 8.20. Tambur pentru transportul capului 
(exemplul A). de imprimantă. 


În timpul cursei active a capului de imprimare se realizează imprimarea 
a 40) de caractere iar semnalul de stare a capătului de cursă activă și a cursei 
inverse este la nivel 1 logic. 


La capătul cursei active acest semnal devine () logic şi rămîne pe această 
valoare tot timpul cursei inverse. Semnalul de stare este generat printr-un 
sistem mecanic rigidizat cu tamburul. : 


Schema interfeţei de cuplare a microcalculatorului aMIG cu miniimpri- 
manta este prezentată în figura 8.21. 
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Descrierea interieţei 


Miniimprimanta este cuplată la microcalculator prin intermediul unei 
interfețe periferice programabile 8255, care comandă prin software schema 
electrică de imprimare şi preia starea curentă de poziţie a tamburului. 

Portul A al interfeţei periferice programat ca ieșire asigură cele 7 semnale 
de comandă a solenoizilor acelor de imprimare precum şi semnalul de comandă 
a motorului care acționează tamburul. 

Comanda solenoidului se realizează printr-un etaj de comutare, realizat 
cu un montaj Darlington, prevăzut cu protecție la tensiunile inverse induse 
în solenoid. (dioda D2). 

Comanda acționării motorului este realizată printr-un montaj Darling- 
ton, care generează semnalul de comandă, pentru un triac care asigură excitația 
motorului la 110 V c-a. 

Imprimarea unei linii decurge astfel : 

Întrucit poziţia capului de imprimare poate fi presupusă oarecare, comanda 
de acţionare a motorului trebuie să asigure poziționarea la capăt de rînd a capu- 
lui înaintea imprimării. Astfel, dacă semnalul de stare este pe 1 logic, se comandă 
rotirea motorului pînă la anularea acestui semnal, parcurgindu-se astfel restul 
de cursă directă pînă la capătul de cursă. Cu motorul acţionat programul de 
comandă asigură o buclă de aşteptare de aproximativ 7 ms timp în care capul 
de imprimare ajunge la începutul cursei directe. 

Se testează din nou semnalul de stare și dacă nu a devenit încă 1 logic 
se așteaptă modificarea sa (cu motorul acţionat). Programul de imprimare 
presupune existenţa într-o zonă tampon de date a celor 40 coduri ASCII cores- 
punzătoare caracterelor care trebuie imprimate. 
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Înainte de imprimarea unui caracter, din codul ASCII corespunzător 
se generează adresa corespondentă din generatorul de caractere. 

Acesta conţine, codificat pe cîte 5 octeți, configuraţia tuturor caracterelor 
care pot fi imprimate, în ordinea codurilor ASCII. 

După preluarea primului octet, care constituie prima coloană a caracteru- 
lui, (avînd întotdeauna bitul 7 poziţionat pe 1 logic: comanda motorului 
activă) acesta este transmis în interfaţa periferică programabilă și se declan- 
şează o buclă de așteptare de 0,25 ms, timp în care solenoizii corespunzători 
sînt acţionaţi executînd imprimarea coloanei. 


La terminarea buclei de aşteptare în portul de ieşire este înscris doar 
bitul de acţionare a motorului poziționat pe 1 logic. Se generează o pauză de 
1,25 ms necesară parcurgerii spaţiului dintre două coloane, iar apoi se repetă 
algoritmul de imprimare coloană. 


Între două caractere consecutive programul generează o pauză de 2,5 ms, 
timp în care se acţionează în continuare motorul. 

Avansul capului de imprimare se poate opri pe parcursul unei linii dar 
nu este posibilă întoarcerea la începutul cursei directe, decît prin imprimarea 
de blancuri în restul liniei. După terminarea imprimării celor 40 de caractere 
se generează bucla de așteptare a căderii pe zero a bitului de stare. După 
aceasta se generează o pauză de ordinul 130 ms acoperitoare pentru cursa 
inversă, iar apoi se opreşte comanda motorului. 

Durata pauzelor introduse în program sînt astfel alese încit imprimarea 
a 4 puncte alăturate să genereze un pătrat. 

Micşorînd pauza între imprimarea a două coloane succesive se poate mări 
numărul de caractere imprimate pe o linie. 

Spaţiul între două linii succesive este generat automat prin forma ghida- 
jului elicoidal de pe tambur, deci distanța între dovă linii imprimate este în- 
totdeauna aceeași. 


Prezentarea programului de imprima 


Înainte de lansarea subrutinei de imprimare a unei linii, programul de 
imprimare trebuie să asigure încărcarea unei zone tampon de date avînd lun- 
gimea de 40) de octeți, cîte un octet pentru fiecare cod ASCII care urmează 
să fie imprimat. După încărcarea zonei tampon, subrutina de imprimare poate 
fi executată iar pentru imprimarea unei pagini se repetă secvența de operaţii : 
încărcarea zonă tampon — execuţie subrutină imprimare linie. 

Subrutina de imprimare ia în considerare numai coduri cuprinse între 
20H şi 5FH pentru alte coduri imprimînd blanc. Generatorul de caractere 
conţine cifrele zecimale, literele majuscule de la A la Z și următoarele carac- 
teze, speaiple: Dlaney 2, i as Siza ps) to hu casta mea Jalsan fa 772 

Subrutina de afişare a unei linii este prezentată în cele ce urmează : 


IMPRIM + PUSH H 
LD A,81H 
OUT 43H ; programarea interfeţei 8255 
XOR A 
OUT 42H 
LD HL,BUFTIP ; HL-adresa zonei tampon 
LD B,28H ; 40 caractere pe linie 


TIP 2: 


TIP 1: 


TIP:3t 


TIP 7: 


TIP: 49 
TIP 5: 


TIP 6: 


TIP 8: 


PAUZA : 
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IN A, 42H 
AND 91 
LD A, 80H 
OUT 40H A 
JP Z, TIPI 
JP TIP2 


LD DE, CONT4 
CALL PAUZA 
IN A, 42H 
AND 91 

JP Z, TIP3 
LD A, (HL) 
CP 20H 

JP C, TIP4 
CP 60H 

JP C, TIP5 
LD A, 20H 
INC HL 
PUSH HL 


; Salvează adresa caracterului următor 


LD HL, TAB-DAJE 


LD D, 09 

LD E,A 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
ADD HL, DE 
LD C, 5H 


LD A, (HL) 
OUT 40H A 
LD DE, CONT1 
CALL PAUZA 
LD A, 80H 
OUT 40H A 
LD DE, CONT2 
CALL PAUZA 
INC HL 

DEC C 

JP NZ, TIP6 
LD DE, CONT3 
CALL PAUZA 
POP HL 

DEC B 

JP NZ, TIP? 


IN A, 42H 
AND 91 

JP NZ, TIP8 
LD DE, CONI5 
CALL PAUZA 
XOR A 

OUT 40H A 
POP H 


JP NZ, PAZUA 
RET. 


-.. .. .. 1... .. 


-. 


se comandă motorul 


se așteaptă pînă ce bitul de stare 


devine „0“ 


pauză de început linie 


se așteaptă pînă ce bitul de stare devine „1“ 


Codurile ASCII care nu aparţin 
[20, 5F] se înlocuiesc cu 20H. 
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Calculul adresei din generatorul de caractere a codului 


din Ace. 


Nr, de coloane într-un caracter 
Se încarcă 8255 cu o coloană de imprimare 


durata de acţionare a solenoizilor 


comandă motor 


pauză între 2 coloane succesive 


pauză între 2 caractere 


dacă mai sînt caractere de imprimat 


se așteaptă ca bitul de stare să devină „0“ 


pauză necesară cursei inverse 


oprire motor. 
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Configuraţia semnalelor la conectorul de interfață cu miniimprimanta 


1. PA7 bufferat 9. PB7 17. PC7 
2. PA6 bufferat 10. PN6 18. PC6 
3. PA5 bufferat 11. PB5 19. PC5 
4. PA4 bufferat 12. PB4 20. PC4 
5. PA3 buiferat 13. PB3 21. PC3 
6. PA2 buiferat 14. PB2 22. PC2 
7. PA1 bufferat 15. PB1 23. PCI 
8. PA0 bufferat 16. PBO 24. PCO 
25. GND. 


8.8. Cuplarea microcalculatorului cu un programator 
de EPROM 


Programatorul asigură posibilități de programare pentru circuitele EPROM 
de tipul Intel 2716. 
Configuraţia circuitului este următoarea (fig. 8.22). 


Fig. 8.22. Configuraţia ter- 
minalelor circuitului 2716. 


î 
2 
3 
4 
5 
6 
7 
8 
9 
19) 
î 


(is) 


Semnificaţia semnalelor : 
Dp—D7 = date intrare/ieşire 
AD—A10 = adrese 


Vpp = selecție regim de programare 
'0E = validare ieşire 
CE = intrare selecţie circuit 


Modurile de lucru ale circuitului sînt prezentate în figura 8.23 a, unde 
ze pun în evidenţă condiţiile în care se realizează fiecare regim : citire, progra- 
mare, verificare. 

Regimul de programare, verificare este selectat [orțînd la intrarea Vpp 
o tensiune de 25 V. PN 

Datele de intrare trebuie să fie stabile înainte şi după pulsul de programare, 
minimum 2 ps. Pulsul de programare durează între 45 şi 55ps şi este livrat 


za vi 


circuitului la intrarea CE de nivel TTL (fig. 8.23b). 
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OUTPUT S 
-n CE Fa 


ADR ADR N 


Wig. 8.23. Memoria EPROM 2716, Regimurile de lucru (a), diagramele de timp (b). 


În figura 8.24 este prezentată schema bloc de interfaţare a programato- 
rului la microcaleulator. 

Interfaţarea este realizată utilizindu-se adresarea diferitelor operaţii ca 
porturi. Atît datele, adresele cît și comenzile sînt livrate programatorului 
prin interfața periferică programabilă, fiind memorate în registre cu încărcare 
paralelă (CDB495). 


Descrierea funcționării programatorului (fig. 8.25) 


Dispozitivul este cuplat la magistrala externă de date a microcalcula- 
torului, necesitînd semnale de adresă (AB3, AB4) şi semnale de comandă 
(RDB, IOREQ). 

Semnalele de adrese și comenzi sînt folosite pentru decodarea celor 6 
selecții necesare funcționării programatorului. Transferul de date din/înspre 
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MAGISTRALA EXTERNĂ 


g: 


TAMPON TAMPON DE 
Ş DE ADRESE : COMENZI 


EPROM 


TAMPON DE 
DATE 


MICRO- 
CALCULATOR 


COMENZI 
ŞI ADRESE 


OMUTATOR 


2716 


BLOC TENSIUNI 
DECODARE 


SELECȚII 
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| 


Fig. 8.24. Interfața microcalculator-programator EPROM. 


programator se realizează prin instrucțiuni de intrare/ieşire. Codurile portu- 
rilor I/O sînt astfel construite încit selectează magistrala externă de date 
prin cuartetul superior şi porturile din programator prin cuartetul inferior. 


Adresele sînt prezentate programatorului octet cu octet fiind încărcate 
în registrele tampon de adrese iar datele sint înscrise în registrul tampon de 
date sau citite din EPROM prin bufferele de separare de tipul 7409. 

Pentru protejarea memoriei EPROM ieșirile registrului tampon de date 
au fost butferate cu circuite „trei stări“ de tipul 74125. 

Pe pinul de alimentare Vec al circuitului EPROM se aplică tensiune 
de +5 V programată. În timpul introducerii respectiv scoaterii circuitului 
2716 din soclu tensiunea de alimentare nu ajunge la circuit. 

Deschiderea liniilor de ieșire din tamponul de date spre circuitul EPROM 
se comandă prin înscrierea unui bit corespunzător într-un registru de comenzi. 

Întrucît, în funcţie de regimul de lucru, intrarea Vpp a circuitului 2716 
este forţată pe 5 V (în regim de citire) respectiv 25 V (în regim de programare/ 
verificare) s-a prevăzut un circuit de comutare nivele de tensiune comandat 
tot printr-un bit înscris în registrul de comenzi. 

În timpul operării cu memoria EPROM s-a prevăzut posibilitatea de pre- 
luare a stării tensiunilor Vpp, respectiv Vcc, prin citirea pe magistrala de date 
a unui cuvînt de stare. În funcţie de nivelul tensiunii UppS214V bitul 0 din 
cuvîntul de stare este poziționat pe 1 sau zero logic. 

Bitul 1, din cuvîntul de stare este poziționat pe 1 logic dacă EPROM-ul 
nu este alimentat cu tensiunea +5V. 
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7 Q 
IN 40 Date D?7 — DO (citire) 
7 | 9) 
7? (9) 
OUT 40 Date D?7 — DO (scriere) 
7 (9) 
7 Z ) 


9) 
7 4 JI 14 ] 9) 
Val. 4Selils2 i 


Fig. 8,26, Instrucţiuni de I/E. 


Semnificaţia informaţiei transferate în urma apelării unui port reiese 
din figura 8.26. 
Organigrama programului de scriere/verificare a EPROM-ului 


Deoarece programatorul nu este prevăzut cu posibilităţi de RESET-are, 
la cuplarea tensiunii este nevoie ca programul să fie lansat înainte de a intro- 
duce cipul de memorie în soclu, pentru a poziţiona corect registrul de comenzi 
(o configuraţie întîmplătoare a acestuia ar putea pune în pericol cipul de memo- 
rie EPROM). După lansare, programul execută iniţializările necesare şi afi- 


șarea mesajului : 


PROGRAMATOR 2716 
COMPL (D, N) 


În funcţie de răspunsul operatorului D sau N, informaţia din EPROM 
se consideră complementată sau nu. În continuare se afișează prompterul (*) 
şi se aşteaptă comenzi. Programul acceptă un număr de 7 comenzi, ale căror 
acțiuni vor fi descrise în continuare. 


Comanda A (alimentări) verifică prezenţa tensiunilor de +5 V şi +25V 
la pinii 24 şi respectiv 21 ai soclului în care se amplasează EPROM-ul. Co- 
manda constituie un test pentru funcţionarea comutatoarelor de tensiune, dind 
diferite comenzi și preluînd cuvîntul de stare. Testul se execută de preferință 
cu soclul liber. 

Comanda V (verificare) operează cu memoria EPROM în regim citire, 
verificînd dacă toate locaţiile memoriei sînt FF. Dacă există erori de „ștergere“ ale 
memoriei, se va afişa adresa şi octetul corespunzător şi se așteaptă decizia 
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operatorului de a continua verificarea, cu (CR) sau de a reveni la prompter, 
cu orice altă tastă. La sfîrșitul verificării se va afişa numărul total de erori 
de ştergere. 

Comanda T (transfer) execută transferul zonei de memorie EPROM 
cuprinsă între ADR.ÎNCEPUT SURSA ȘI ADR. SFÎRŞIT SURSA în me- 
moria RAM de la ADR. INCEPUT DESTINAȚIE, complementat sau nu. 


Comanda C (Comparare) realizează compararea unei zone din EPROM 
cu o zonă din memoria RAM. Adresele limită ale blocurilor se dau după lansarea 
comenzii. 

Fiecărei erori depistate îi corespunde un mesaj care cuprinde tipul erorii 
(corectabilă sau necorectabilă, adică „1“ în loc de „0“ și invers), adresa, octetul 
din RAM și cel din EPROM. Se continuă compararea cu (CR). După terminarea 
comparării se afişează numărul total de erori apărute şi numărul de erori ne- 
corectabile. 

— format: A ADR (CR) 


Comanda D (Display) permite afişarea a 8 octeți din memoria EPROM 
începînd de la adresa menţionată în comandă, adresă care se afișează la înce- 
putul rîndului. 

Tastarea (CR) are ca efect afişarea următorilor 8 octeți. 


Comanda D (Programare) realizează cea mai importantă acţiune, aceea 
de înscriere a unei zone din memoria RAM în memoria EPROM. Adresele 
limită a blocurilor au în cazul acestei comenzi următoarea semnificaţie : adre- 
sele referitoare la sursă delimitează zona din EPROM care va fi înscrisă res- 
pectîndu-se convenţia care definește memoria EPROM ca sursă iar cea RAM 
ca destinaţie. Înainte de programarea propriu-zisă se realizează compararea 
zonei sursă cu zona destinaţie. Dacă sînt depistate erori necorectabile ele sînt 
afișate şi se așteaptă decizia operatorului. Acesta poate să le ignore şi să conti- 
nue compararea cu (CR). Acest test care anticipă programarea, dă posibilitatea 
înscrierii unei memorii EPROM care deşi nu este ştearsă complet, nu are dife- 
rențe necorectabile față de informaţia care urmează să fie înscrisă. 

Înscrierea fiecărui octet este anticipată de verificarea tensiunii de 25 
de volţi care poate fi mai mică de 24 de volţi datorită sursei, comutatorului 
5—25 V sau datorită intrării Vpp defecte a cipului de EPROM. Succesiunea 
comenzilor și întîrzierile necesare pentru înscrierea corectă a unui octet sint 
generate prin soitware. 

Se verifică octetul înscris, comparindu-se cu octetul corespunzător din 
RAM şi dacă apare eroarea corectabilă se repetă înscrierea aceleiaşi locaţii. 
Dacă eroarea corectabilă se menţine, ea va fi contorizată şi se continuă progra- 
marea următoarelor locaţii. Dacă apare o eroare necorectabilă ea este afișată 
şi se aşteaptă decizia operatorului. După terminarea înscrierii întregului bloc 
de date se afişează numărul total de erori şi numărul de erori necorectabile 
apărute. 

Comanda $ permite înscrierea unui singur octet din EPROM. Comanda 
cere adresa și octetul de înscriere după care îl compară cu octetul existent 
în EPROM. Dacă diferența este necorectabilă ea este afişată şi se cere decizia 
operatorului. Revenirea în monitorul microcalculatorului se face cu comanda 
(CR). 
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8.9. Cuplarea cu un terminal DAF 2010 


Prin intermediul interfeţei seriale 8251 se realizează transferul bidireeţio- 
nal asincron de date între microcalculator și un sistem DAF 2019, cu o rată 
de transfer de 2409 Bauds. 

Informația vehiculată poate fi transferată octet cu octet, sau sub formă, 
2de blocuri de date, înformat HEX-INTELLEC, care presupune următoarea 
structură a înregistrării : 


CR LF:NO ADR T Date Control 


unde : NO este numărul de octeți de date ai înregistrării, 
ADR — adresa de început a înregistrării, 
8 — tipul înregistrării, 


Date — reprezintă maxim 16 octeți 
Control este suma logică a octeților din înregistrare. 


Sfîrșitul de fişier este constituit de o înregistrare cu număr de octeți 
zero iar adresa corespunzătoare va fi adresa de salt în fişierul încărcat. 
Programul de transmisie a unui fişier, la lansare așteaptă adresa de 
început şi sfîrşit a blocului de date iar la stirșitul transmisiei formează automat 
înregistrarea de sfîrşit fişier. 
Programul de recepţie a unui fișier, aşteaptă după lansare, adresa de depla- 
sare a blocului de date față de adresa de început a fişierului (intrinsecă). 
Secvența de programare a interteţei serie 8291 este prezentată în conti- 
nuare : 
MVI A, 0EAH MVI A, 15H 
OUT MH OUT 01H 
Semnificația este următoarea : 2 biţi de stop, control da paritate dezactivat 
caracter pe 7 biţi, viteza de transmisie = rata de transmisie X16, activare 
transmisie şi recepţie, anularea erorilor din registrul de stare. 
Subrutina de transmisie a unui caracter aflat în memorie la adrosa HLu 
este prezentată în continuare : 


TCAR:  MOVA,M TO IN AH 
OUT 09H ANI D1H 
JZ TC 
RET 


Recepţia unui octet de la interfața serială este realizată de următoarea 
subrutină : 


RCAR: IN 01H IN 00 
ANI D2h ANI 7FH 
JZ RCAR RET 


Programul de transmisie fişier preia din memorie blocuri de 16 octeți, 
ormatează informația în HEX-INTELLEC şi calculează suma de control 
ealizind astfel o înregistrare. Acest ciclu este repstat pînă la terminaraa blo- 
ului da date, completindu-se fişierul cu înregistrarea nulă. 
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Pregramul de recepţie fişier transferă în memorie înregistrări succesive, 
prelucrînd secvențial fiecare octet şi verificînd la sfîrșit suma de control. 

În cazul apariţiei unei erori programul afişează mesajul: ER : adresă, 
unde adresa constituie începutul înregistrării eronate. 

În momentul recepției unei înregistrări nule se face ieșirea în monitorul 
microcalculatorului. 

În continuare se dă configuraţia semnalelor la conectorul de interfaţă 
cu un DAF 2010: 


1. GND 4. 6. STRAP pt, DAF 9-+19 neutilizat 
2. TxD 5. STRAP pt. DAF 7. GND 
3. RxD 8. — 

20. — 


8.10. Interfața cu un minirobot 


Minirobotul de laborator M2,5 elaborat la „Electrotimiş“ “Timișoara 
este un robot experimental cu aplicabilitate în industria electronică pentru 
manipularea de piese şi componente de mici dimensiuni şi greutate redusă 
(2,5 Nm; greutate piese 300g, deschiderea dispozitivului de prehensiune : 
7 cm ;). Minirobotul dispune de 5 grade de libertate fiind prevăzut cu 9 motoare 
pas cu pas (20 W) acţionate în 'buclă deschisă. 

Minirobotul este realizat constructiv cu elemente mecanice din material 
plastic, transmisia este asigurată prin fire, posedă un panou de învăţare şi o 
tastatură cu electronică de urmărire. 

Mişcările pe care le poate executa acesta sînt: 

— pivotarea (rotația în jurul axului principal) 

— mișcările braţului și antebraţului - 

— mişcările de flexie şi supinație a miinii mecanice. 

Minirobotul este interiaţat la microcalculator printr-o interfaţa periferică 
programabilă, avind cele 3 porturi programate ca ieşiri. 

Prin aceasta interfață microcalculatorul asigură 8 comenzi de sens de 
mișcare şi 8 comenzi de tact repartizate fiecărui motor pas cu pas. (1 comandă 
de sens mișcare şi 1 comandă de tact la fiecare motor). 

Comenzile microcalculatorului sînt prelucrate într-o interfață de acţio- 
nare pentru motoarele pas cu pas. 

Viteza de execuue a mișcarnor este controlată software, interiața de acțio- 
nare intervenind la depășirea valorilor prescrise pentru semnalele de tact. 

Controlul mișcării accelerate şi decelerate este asigurat tot din interfața 
de acţ onare. 

Programul de aplicaţie este scris într-un limbaj de nivel înalt, ARM 
BASIC, cu subrutine în limbaj maşină Z80. Între posibilitățile software remar- 
căm posibilităţile de elaborare a unor modele matematice de transformări 
de coordonate, un formalism matricial, posibilităţi de comandă în coordonate 
carteziene etc. Comenzile specilice ARMBASIC au fost utilizate şi la simularea 
mișcărilor unui minirobot în cadrul a două programe de aplicaţie : un program 
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de învățare pas cu pas a execuţiei unei mișcări şi un program de execuţie a unei 
traiectorii impuse. Programul de învăţare permite simularea acționării pas cu 
pas a motoarelor; aducind minirobotul în poziţii succesive, la comenzi de 
operator. 

Cel de-al doilea program realizează simularea mișcării mîinii minirobo- 
tului pe o traiectorie a cărei coordonate succesive sînt calculate secvențial 
de către microcalculator. Simularea minirobotului pe microcalculatorul aMIG 
gl ați prin afişarea stilizată pe display a poziţiilor succesive ale mini- 
robotului. 


8.11. Echipament de testare pentru microsisteme 
orientate pe magistrală 


Structura hardware a microcalculatorului „aMIC“ constituie procesorul 
„master“ al unui sistem biprocesor de test în curs de elaborare la ITC. 

Sistemul de test asigură posibilităţi de fabricaţie, service și instalare 
de aplicaţii a microsistemelor cu circuite LSI organizate pe principiul magistralei. 

Echipamentul realizează o testare funcţional dinamică pe principiul 
emulării. 

Stimularea plachetelor sau microsistemelor sub test este asigurată de emu- 
lator iar evaluarea răspunsurilor se face prin sondă mobilă cu analiză de semnături. 

Resursele sistemului IL-SIMINITEST sînt: memorie utilizator în procesorul 
master 48 Ko, memorie de emulare 8 Ko, sistem de operare și interpreter de 
test rezidente în EPROM, procesor master (16 Ko), monitor de depanare/ 
testare (rezident sau încărcat în memoria externă) programe de test și module 
de test funcțional încărcate din memorie externă, program de condus sonda 
mobilă, monitor de emulare (2 Ko). 

Memoria externă este realizată cu minifloppy sau casetă audio. Sistemul 
de test are ca display un receptor TV obișnuit, dispune de miniimprimantă 
MIMA44, are disponibilităţi de transmisie/recepție serială de informaţii, putind 
constitui un post de lucru al unei echipament de test complex, multipost, L-SI 
TEST. 

Sistemul de testare are posibilități de punere la punct și de editare a pro- 
gramelor de test, avînd interfațat un programator de memorii EPROM. 

Emulatorul dispune de următoarele facilități : 

Stimularea în timp real a plachetelor sau microsistemelor sub test cu 
trei categorii de stimuli : primari, module de test funcționale și stimuli defa- 
vorabili, memorie de emulare relocabilă în spațiul de adresă al procesorului 
emulator, ceas de gardă, generare și tratare de întreruperi, memorie trasoare, 
emulare pe microsisteme cu microprocesor Z8( sau 8080. 

POD-ul emulatorului este constituit din microprocesorul 8080 sau Z80, 
bufferele de interfaţă şi controlerul acestora. Intervenţia pe placa sau micro- 
sistemul sub test se face la nivelul DIP-ului pe soclul microprocesorului 
emulat. Un translator de bus asigură posibilitatea testării microsistemelor 
organizate pe diferite standarde de magistrală. El este compus dintr-un modul 
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de unitate centrală specific, un modul de memorie specific şi o placă adaptoare 
de bus. Sonda mobilă asigură facilități de ridicare a unei semnături, discrimi- 
nează nivele TTL, MOS, analogice, lucrează sub comanda procesorului master 
şi emulatorului. 
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sou 

|microsisteml 

sub test | 


DISPLAY” MINIIMPRIMANTĂ 
INTERFAȚĂ RS232C 


[specific ] 


EMULATOR 
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(min floppy disk sau | 
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[| 


| PARALEL LA BUS 
L (64 canale) 


Fig. 8.27. Schema bloc a echipamentului de test LSIMINITEST. 


Sonda este ghidată prin program pentru localizarea defectului pe placa 
sau microsistemul sub test. 

Schema bloc a echipamentului de test I-SIMINITEST se prezintă în 
figura 8.27. 


8.12. aMIC-ul în unităţi de deservire pentru mașini-unelte 


În cadrul unei lucrări în curs de elaborare la ITC în colaborare cu o între- 
prindere constructoare de mașini-unelte, microcalculatorul aMIC se constituie 
ca o unitate de deservire a mașinilor-unelte, preluînd următoarele funcțiuni : 


— editare de bandă perforată ; 
— programare EPROM ; 
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— miniconsolă pentru automate programabile ; 

— imprimare programe. | 

Editor de bandă perforată 

Resursele hardware ale microcalculatorului sint completate cu inter- 
faţarea unui lector (respectiv perforator) de bandă perforată. Editarea de bandă 
perforată presupune existenţa unui program de citire/scriere a benzilor, cum 
gi un program de prelucrare a textelor în limbajul specific mașinilor-unelte. 

Întrucît acest limbaj nu este încă standardizat este necesară o mare 
flexibilitate a programului, astfel încît să permită apelarea, modificarea, în- 
scrierea (respectiv ştergerea) unor instrucțiuni sau linii de program, cu reloca- 
rea corespunzătoare a textului. 

Programul permite şi copierea benzilor perforate, prin controlul numărului 
de linie sau a unei anumite instrucţiuni. 

Programator memorie EPROM 

Dispozitivul reprezintă o variantă cu posibilităţi lărgite de programare, pu- 
tind programa circuite 2708 sau 2716. Informaţia se încarcă într-o zonă RAM 
tampon în mai multe moduri: 

— prin citire de pe bandă perforată 

— prin citirea unei memorii EPROM 

— prin introducere manuală 

— de la miniconsola pentru automat programabil. 

Microconsola pentru automate programabile (AP101, AP117). Sistemul 
poate îi cuplat la automatul programabil, asigurîndu-i o zonă de memorie 
RAM în care se încarcă programul de control al procesului. 

Prin sotltware se poate prelucra uşor informația înscrisă în memoria 
RAM permițind căutarea, ştergerea, modificarea, înscrierea unei instrucţiuni 
specifice automatului programabil. După punerea la punct a programului, 
acesta este înscris în memoria EPROM, constituindu-se ca program rezident 
pentru automatul programabil. 

Sistemul permite, de asemenea, printr-un program adecvat, simularea 
execuţiei programului, fără cuplare la proces, variabilele de intrare putind 
fi controlate și modilicate la intervenţia operatorului, iar variabilele interme- 
diare şi cele de ieşire putind îi urmărite pe display. 

Se poate testa, asttel, urmărirea și controlul procesului (în condiţii defa- 
vorabile) și se poate optimiza programul de conducere a procesului. 

În cazul simulării variabilelor de intrare în condiţiile unui proces în buclă 
inchisă, se verifică optimalitatea programului de control al procesului înainte 
de realizarea aplicaţiei, sistemul preluînd funcţii de sistem expert. 

Interfaţarea miniimprimantei MIM40 

În cadrul sistemului de deservire a mașinilor-unelte, funcția de imprimare 
este utilă pentru a asigura un suport de ieșire al programelor în procesul prelucrării 
şi modificării acestora. 

Soluţia de interfațare a miniimprimantei la sistem a fost prezentată 
În paragraful 8.7. 
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8.13. Sistem de înregistrare/redare a parametrilor 
semicontinui de proces 


Acest sistem este destinat, într-o primă variantă, achiziţiei parametrilor 
de sudare cu arc electric (tensiunea arcului U,, curentul de sudare I, sub forma 
unei mărimi nominalizate în domeniul 0—10 V şi viteza trenului de sudare 
V,, sub forma unui tren de impulsuri de maximum 5 kHz) cu rezoluţia de 10; 
biţi şi timpul de eșantionare de 200 ms. Parametrii achiziționaţi pot fi memoraţi 
pe un suport extern (casetă magnetică audio sau (opţional) bandă perforată): 
şi tipăriţi ofi-line pe o miniimprimantă paralelă. De asemenea, conţinutul unei: 
înregistrări din proces poate fi redat sub forma unor mărimi analogice de comandă: 
a procesului. Numărul de canale estei maximum 16. 

Configuraţia completă are următoarea? componenţă: 

— modul unitate centrală (structurat pe varianta microcalculator personal 
aMIC) prevăzut cu 2 interfețe paralele (una funcţională pentru lector/perforator 
de bandă şi una de intrare pentru tastatură), interfață serie RS232C (destinată 
comunicaţiei cu DAF2010 sau cu alt sistem de calcul), memorie RAM dinamică 
(48 Ko) și EPROM (16 Ko), programator on line pentru circuite EPROM 
tip 2716, 2732 ; 

— modul interfaţă universală, care realizează interfeţe cu modulul de 
afişare (6 digiţi), cu imprimanta tip MIM40 (40 caractere), prin generator de 
caractere pe coloane rezident într-un ROM, cu unitatea de casetă (8251), cum 
şi un ceas programabil de timp real pentru prescrierea frecvenţei de eşantionare 
pină la 100Hz; 

— sertar de interfeţe specifice cu procesul, care preiau semnalul de la 
traductoarele de tensiune, curent, temperatură și-l încadrează în urma modulării, 
optoizolării şi demodulării în domeniul 0—10 V cu eroare mai mică de 1%; 

— periferice înglobate : modul anșare 6 digiţi, imprimantă MIM40, (in- 
clusiv modul de acţionare) unitate de casetă audio, tastatură caracter, 10 ciire 
și funcţională ; 

— conectori de interfață cu lector LB50/perforator PB50, cu unitate 
de casetă UCMI01, pentru parametrii proces. 

Sistemul lucrează în regim de întrerupen, mod IMI, mascabile prin soft. 
Ele se înregistrează într-un registru de 8 biţi, care este citit și decoditicat prin 


procrim În urma generării unui semnal unic de întrerupere. ; |: ph 
) În regim de progremare, operatorul poate prescrie prin dialog; 
— numărul canalului ; [ale a 
— tipul canalului; _ 
— tipul de eșantionare (100Hz);, '* E — : 
— funcţia înregistrată | +A EA 


În figura 8.28 se prezintă schema bloc a sistemului de înregistrare/redare 
a parametrilor de proces. 

Software-ul aplicaţiei asigură urmărirea procesului în timp real, fiind 
realizat în limbaj mașină 8080 (sau Z80). 
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Fig. 8.28. Schema bloc a sistemului de înregis- 
trare/redare a parametrilor de proces. 


8.14. Microcalculator (de laborator) pentru prelucrarea 
datelor provenite din analiza cromatografică 


Pentru a evita costul ridicat al unei implementări specifice și pentru 
a putea destina sistemul şi altor proceduri de analiză fizico-chimică, soluţia 
aleasă la ITC Timișoara recurge la o variantă cu un anumit grad de modulari- 
tate, funcția principală de sistem fiind preluată de microcalculatorul aMIG, 
cu resurse proprii de memorie 64Ko (48 Ko RAM şi 16 Ko EPROM). 
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Acest modul interfaţează tastatura de caractere şi funcțională, un DAF sau 
monitor TV ca echipament extern de vizualizare și asigură o interfață de date 
paralelă. 

Restul periferiei este tratat pe modulul de interfață care gestionează impri- 
manta paralelă de tip MIM40, înglobată în echipament, subsistemul de achi- 
ziţie a mărimii de analiză, un ceas real de 20) ms şi ceasul de eşantionare. 

Pe același modul sînt rezidente și registrul de întreruperi și măștile 
de întreruperi. 

Conversaţia numeric-analogică de tip interactiv se realizează pe 15 biţi, 
plus un bit de semn, în domeniul —100mV — +1 V, avînd perioada de eşan- 
tionare sincronizată cu frecvența reţelei, pentru rejecția zgomotelor de înaltă 
frecvenţă. 

Semnalul este preluat diferențial pentru a reduce zgomotele induse prin 
masă. 

Semnalul de analiză provenit de la cromatograt se prezintă sub forma 
unei succesiuni de vîrfuri (peak-uri). 

Fiecare „peak“ apare la un moment de timp care trebuie corect estimat, 
întrucît identifică tipul unui anumit component din amestecul de analiză. 

Integrala „peak“-ului dă o informație cantitativă asupra componentului 
detectat, astfel încit, în final, se poate face o estimare exactă a compoziţiei 
procentuale a probei analizate. 

Software-ul sistemului este scris în limbaj de asamblare 8080 (16 Ko 
program şi 12 Ko zonă de date, permiţind integrarea a 350 peak-uri). 

Pachetul de programe este organizat modular și cuprinde un monitor 
cu facilităţi de autodepanare, task-uri de dialog, de integrare, de corecție, de 
calcul al raportului (precizia de calcul: 24 biţi). 


Capitolul 9. Limbajul BASIC 


pentru microcalculatorul personal aMIC 


Manual practic 


9.1. Introducere 


BASIC (Beginners All-purpose Symbolic Instruction Code) reprezintă 
un limbaj conversaţional de nivel înalt. Pentru execuţia programelor de apli- 
caţie scrise în BASIC se folosesc cel puţin trei metode distincte : interpretarea, 
compilarea şi combinarea lor. Pachetul soliware, care folosește metoda combi- 
nată, poartă numele de compilator/interpretor sau pseudo-compilator. 

Fiecare din metodele de execuţie a programelor de aplicaţii are avanta- 
jele şi dezavantajele ei. În general, alegerea metodei este determinată de apli- 
cație, de utilizarea particulară a calculatorului. 

În timpul execuției, un interpretor analizează fiecare instrucţiune, veri- 
fică existenţa erorilor, apoi efectuează funcția BASIC solicitată. Pentru a exr- 
cuta funcția respectivă, interpretorul traduce instrucțiunea dată în codul 
ASCII într-un număr de instrucțiuni mașină executabile, pe care le execută 
în continuare. Acest proces se repetă la fiecare instrucțiune BASIC, chiar 
dacă instrucţiunea respectivă apare de mai multe ori în cadrul unui ciclu. 

Modul interpretativ de execuție presupune existența în memoria calcula- 
torului a întregului program BASIC-sursă, sub forma unei liste de linii marcate 
cu etichete numerice. Fiecare instrucțiune de ramificaţie impune ca interpreto- 
rul să caute într-o listă de numere de linii, pentru a găsi instrucţiunea dorită 
În aceeaşi manieră interpretorul va căuta o anumită variabilă în cadrul unei 
liste date. 

Metoda bazată pe compilare presupune traducerea programului sursă, 
scris în BASIC, într-un fișier obiect relocabil. În centinuare, un program de 
sistem, denumit Editor de legături, va înlănţui toate fişierele obiect relocabile 
produse, cit şi fişiere obiect extrase dintr-o bibliotecă, pentru a produce fișierul 
executabil în cod mașină. Programul obiect compilat, va fi executat de 25=+-30 
de ori mai repede decit se executa în maniera interpretativă același program 
BASIC sursă. 

Compilarea şi editarea de legături trebuie repetată la fiecare modiiicare 
executată în programul sursă. În cazul interpretorului se va modifica cu ajutorul 
unor facilități de editare încorporate, linia respectivă din programul sursă, 


după care se va trece direct la execuţie. 
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Astfel, un programator poate utiliza un inte. pretor pentru a pune la punct 
un program sursă BASIC, după care poate utiliza un compilator compatibil, 
pentru a obține un program obiect, care poate fi executat într-un timp foarte 
scurt, corespunzător aplicaţiei date. 

În comparaţie cu un compilator, interpretorul este mult mai ieftin. 

Metoda bazată pe pseudo-compilare asigură un compromis între viteză 
şi cost. Astfel, costul unui pseudo-compilator este apropiat de cel al unui inter- 
pretor, În timp ce viteza sa este de circa cinci ori mai mare decit a acestuia 
din urmă. Viteza relativă a pseudo-compilatorului depinde de instrucțiunile 
programului, de tipul de date și de gradul în care codul rezultat necesită trans- 
latarea în timpul execuţiei. 

Varianta de BASIC aleasă pentru aMIC are un caracter interpretativ, 
ceea ce o face extrem de atractivă pentru punerea la punct a programelor. 
Marea majoritate a aplicaţiilor pentru acest calculator nu intră în categoria 
aplicaţiilor de timp real. 

În cazul în care se impune o viteză de execuţie mai mare, se poate fo- 
losi metoda apelării unor subrutine, scrise în limbaj de asamblare, pentru acele 
zone din program care trebuie executate cu viteză mare. 

Asemenea situații apar în cadrul aplicaţiilor de colectare a datelor sau de 
conducere a unor procese. Pentru a realiza accesul la subrutine scrise în limbaj 
de asamblare se folosește instrucțiunea CALI, care include un nume de varia- 
bilă (un indicator la o celulă de memorie în care se află punctul de intrare în 
subrutina scrisă în limbaj de asamblare) și dacă este necesar, o listă de para- 
metri care trebuie transferați subrutinei. 

Pentru punerea la punct a programelor în limbaj de asamblare se poate 
folosi programul de sistem MATE (Monitor-Asamblor-Text Editor), programul 
asamblat fiind stocat. pe caseta magnetică. În continuare el va fi încărcat în 
memoria operativă a calculatorului o dată cu programul BASIC-sursă. Într-unul 
din paragrafele acestui capitol se dau exemple pentru ilustrarea acestei tehnici. 

Calculatorul aMIC are disponibile două versiuni de interpr+toare BASIG. 
Prima versiune reprezintă un subset al celei de-a doua, în sensul că nu posedă 
instrucțiuni matriceale, instrucţiuni de prelucrare grafică și instrucțiunea 
CALI. Prima versiune necesită un spaţiu de 8 Ko în memoria PROM, în timp 
ce versiunea a doua necesită un spațiu de 14 Ko. Se menţionează și posibilitatea 
încărcării interpretorului BASIC de pe caseta magnetică, în scopul reducerii 
numărului de circuite integrate de memorie PROM al căror cost este relativ 
ridicat. 

Operarea sistemului. Elemente introductive privind programarea în 
limbajul BASIC 

În vederea unei sesiuni de lucru, calculatorul se conectează la intrarea 
de antenă a unui televizor și la o tastatură alfanumerică *. Televizorul va fi 
folosit ca echipament de ieşire, în timp ce tastatura va juca rolul unui echipa- 
ment de intrare. 


* Amănuntele privind conectarea la un televizor comercial, cît și tastatura sînt date în 
capitolul 3 al lucrării. 
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După alimentarea de la reţea a televizorului și selectarea canalului cores- 
punzător se va alimenta și calculatorul, prin intermediul sursei proprii, şi se 
va acţiona tasta RESET. În acest moment pe ecranul televizorului va apărea 
un text, care indică faptul că sistemul se află sub controlul programului monitor. 
În continuare se pot introduce, de la tastatură, comenzi monitor (descrise în 
capitolul referitor la monitorul sistemului). Pentru a lansa BASIC-ul, trebuie 
acţionate tastele B şi RETURN. Pe ecran va apărea mesajul READY, indicînd 
posibilitatea introducerii unor comenzi şi instrucţiuni BASIC. De exemplu, 
dacă se dorește calculul valorii unei expresii aritmetice: 30—2.32-+4:2-3, 
se va introduce de la tastatură următoarea instrucțiune: 


10 PRINT, 30 — 2 sg + 2-+4/2e3 


Se observă că instrucțiunea începe cu o etichetă numerică (10). La sfir- 
şitul introducerii instrucţiunii trebuie acționată tasta RETURN. În continuare 
linia (instrucțiunea) introdusă este depusă în memoria calculatorului, fără 
a se executa. Se constată că operaţiile de înmulţire, împărţire şi ridicare la pu- 
tere sînt descrise prin simbolurile *,/şi 4. 

În memoria calculatorului pot fi introduse de la tastatură succesiv mai 
multe instrucţiuni, avînd numere de linie diferite. Un grup de instrucţiuni 
depuse în memorie poartă numele de program. 

Pentru a executa o instrucţiune (un program) depusă în memoria calcula- 
torului, trebuie dată comanda RUN (urmată de RETURN). Astfel, introducînd 
instrucțiunea PRINT, și apoi comanda RUN, calculatorul va afişa pe ecran 
rezultatul expresiei (18), prioritatea în execuţia operatorilor fiind cea obiş- 
nuită (întîi ridicări la putere, apoi înmulţiri și împărțiri și în final adunări 
şi scăderi). După tipărirea rezultatelor, pe ecran se va afișa un mesaj de eroare 
cu numărul 1, indicînd faptul că programul executat nu s-a terminat cu o in- 
strucțiune de oprire a execuţiei (STOP sau END). Pentru a evita această eroare, 
se va introduce după PRINT o nouă instrucțiune: 20 END. 

Execut înd din nou programul (format din două instrucţiuni : 10 PRINT 
„.. Şi 20 END) și folosind tot comanda RUN, nu se va mai obţine mesajul 
de eroare. 

În instrucţiunea PRINT pot apărea mai multe expresii (după necesităţi) 
separate prin virgulă. De exemplu instrucțiunea : 


19 PRINT 1+7, 3, 5, 52 4 3,£19/4 


Va tipări cinci valori, cîte două pe un rînd separate cu spaţii. De notat 
că ecranul televizorului este impărțit în 32 de rînduri a 30 de caractere fiecare. 
În cazul folosirii virgulei în instrucțiunea PRINT valorile sînt afișate începînd 
din poziţia 1 şi apoi din poziţia 15 a unui rînd, realizîndu-se o tabulare automată. 
Pentru a nu se lăsa spaţiu (tabula) între valorile tipărite, se foloseşte separa- 
torul ; între expresii. 

Astfel, 10 PRINT 8; 15/2—1; 247; 19 va tipări cele patru valori 
8,6. 5, 128 şi 19 pe acelaşi rînd (fără tabulare). 

Pentru a memora o valoare (un număr) care va fi folosită ulterior în pro- 
gram, se va utiliza o variabilă literală, căreia i se va atribui valoarea respectivă. 
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Limbajul BASIC dispune în acest sens de instrucţiunea de atribuire 
LET, cu ajutorul căreia se stochează în memoria calculatorului mărimi ce pot 
fi utilizate ulterior. Astfel, folosind variabila X : 

5 LET X=15 30 PRINT X 

10 PRINT X 40 STOP 

20 PRINT X/2, X+2—X+1 
valoarea tipărită de instrucţiunile 10 şi 30 este aceeaşi (15). Instrucţiunea 
20 utilizează valoarea variabilei X, fără a o modifica. 


9.2. Elementele limbajului BASIC 


În continuare vor fi prezentate cîteva noţiuni necesare pentru descrierea 
unei probleme în limbajul BASIC. Cuvintele folosite în limbajul BASIC formează 
vocabularul limbajului. Ele se scriu după reguli precise, date de sintaxa limba- 
jului. 
Caracterele întrebuințate în BASIC pentru alcătuirea cuvintelor sînt : 
—literele mari ale alfabetului: A, B, C, ...,Z 
— cifrele: 0, 1, ..., 9 
— caractere speciale: + —*/=“>< o, î ();5$ 


9.2.1. Constante. Constantele sînt de două tipuri: constante numerice 
și constante şir sau texte. În continuare, în lipsa menţionării explicite, prin 
constantă ne vom referi la constante numerice. Constantele şir reprezintă 
orice şir de caractere introdus între ghilimele. De exemplu: “STUDENȚII 
HARNICI“, “INTRODUCEŢI DATELE“, «127.5%, etc. 

Constantele numerice utilizate în BASIC sînt reale. Ele pot avea, de exem- 
plu, următoarele exprimări : 


25112945, mi O O—0:36 O +4-.7301 


De asemenea, la fiecare număr de mai sus, se poate adăuga un exponent, 
utilizînd litera E. Exponentul este un număr întreg. El indică puterea lui 10, 
cu care se înmulțește numărul. 

Astfel, următoarele constante sînt corecte : 


25E—1=2.5 123,45E.12 —0.36E—15 


Intern, constantele sînt reprezentate în formatul cu virgulă mobilă, 
pe patru octeți. Primii trei octeți conţin mantisa, subunitară şi normalizată, 
iar octetul patru conţine exponentul: 


| M |S| E | 
0 23 24 31 


unde : 

este mantisa normalizată 0.5s<M<1 

este un bit care reprezintă semnul mantisei (1 pentru negativ). 

este exponentul în complement faţă de doi. E reprezintă puterea: 
lui doi, cu care se înmulțește mantisa. 


tis 
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Conform cu această reprezentare internă, cel mai mic număr manipulat 
va fi (în modul) : 2.71051E-20 iar cel mai mare : 9.22337E18. Din reprezentare 
se observă că sînt păstrate aproximativ 7 cifre semnificative. 


9.2.2. Variabile. Variabilele utilizate în BASIC pot fi, ca şi constantele, 
de două tipuri : variabile numerice (pe care le vom numi, pe scurt, variabile) 
“şi variabile şir. 

Variabilele şir reprezintă şiruri de caractere allanumerice. Numele u nei 
“variabile şir este format dintr-o iiteră urmată de caracterul e 


Exemple: AŞ, B$ 


Se pot utiliza şi tablouri de variabile şir, tablourile fiind formate din 
'mai multe variabile șir, cu aceeaşi lungime și acelaşi nume. 

Numărul şi lungimea variabilelor şir ce formează un tablou, trebuie 
declarate într-o instrucțiune DIM, înainte de utilizarea tabloului. Variabilele 
şir ce formează un tablou, vor fi specificate prin utilizarea indicilor. De exemplu, 
dacă A $ este un tablou de zece variabile şir, a cîte 50 de elemente (caractere) 
fiecare, atunci vom referi variabilele şir prin: A$ (1), A$ (2), ...,.A S$ (10), 
iar tabloul A $ va fi declarat într-o instrucțiune: 


DIM A $ (10, 50). 


n unele aplicații, este necesară utilizarea unor porțiuni (snbșiruri) din- 
tr-un șir, desemnat de o variabilă şir. Pentru specificarea subşirurilor unei 
variabile şir, se foloseşte notația : (n TO n2) asociată numelui variabilei şir ; 
m este indicele primului caracter al subşirului, iar na este indicele ultimului 
«caracter al subşirului din variabila șir. De exemplu, fie B $=*123ABC“, sub- 
şirul B $ (2T05)=*“23AB“. 

Indicii n şi n> pot fi constante, variabile sau expresii, valoarea lor fiind 
„cuprinsă între 1 și dimensiunea (lungimea) şirului. În cazul absenței indicelui 
n, se consideră că subșirul începe cu primul caracter al şirului, de exemplu : 
B $ (T04)=*123A“. 

În cazul absenței indicelui ny se consideră că subşirul se termină cu ulti- 
mul caracter al şirului, de exemplu : B $ (3T0)=“3ABC“. Pot lipsi ambii indici, 
„caz În care subșirul este identic cu şirul (variabila șir) dat. Exemplu : B$ (T0)= 
=B $ =“123ABC“. 

Se pot utiliza subșiruri ale variabilelor șir ce formează un tablou de 
variabile șir. 

De exemplu, pentru tabloul A $ (10, 50) format din zece şiruri de cite 
50 de caractere, se poate specifica subşirul A $ (3, 12 TO 43), format din ele- 
mentele 12 la 43, ale variabilei șir A $ (3). 

De remarcat că, în cazul unui tablou de variabile şir, trebuie selectată 
variabila şir din tabloul la care ne referim și apoi specificat un subșir din această 
variabilă. 

Pentru subșiruri formate dintr-un singur caracter, se poate folosi un singur 
indice, cel al caracterului selectat. 

Astiel: B $ (4)=B $ (4TO4)="“A“; B $ (6)=*C“, pentru variabila B $ 
„utilizată mai sus, iar în cazul tabloului A $, elementul (caracterul) al treilea 
-din șirul şapte va fi specificat prin A $ (7, 3) sau A $ (7, 3T03). 
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Variabilele numerice utilizate în BASIC sînt reale. Variabilele pot fi 
simple sau indexate. Variabilele simple sînt reprezentate fie printr-o literă, 
fie o literă şi o cifră. 

Exemple : A, VI, Q7, A9 

+ ariabilele indexate reprezintă elementele unui tablou (vector sau matrice). 
Identificatorul (numele) tabloului trebuie să fie compus dintr-o singură literă. 


Litera identificator de tablou poate coincide cu numele unei variabile simple 
(fără a produce conflict). 


Tablourile, înainte de utilizare, trebuie declarate în instrucțiunea DIM 
(sau o instrucțiune MAT). Indicele poate fi o constantă, o variabilă sau o ex- 
presie și trebuie să aibă valoarea : 


* S indice SS dimensiunea declarată în DIM 
Observaţie : 

Dacă, în urma evaluării expresiei indice, nu se obține o valoare întreagă, 
se va reține partea întreagă a valorii obținute. 

Exemple: E (1,5); V (ABS (R)); A (1-3, J-K) 

9.2.3. Operatori. Operatori aritmetici : 

ridicare la putere, 

*, ] înmulţire, împărţire, 

—, 4 scădere, adunare. 

Operatorii au fost scriși în ordinea priorității în evaluare ( are prio- 
ritatea cea mai mare). Cînd se doreşte schimbarea priorităţii în evaluare, sau 
cînd există dubii, este bine să se utilizeze parantezele ; operaţiile din interiorul 
parantezelor vor fi executate înaintea celor din exterior. 

Operatori relaționali 


Operatorii relaționali sînt utilizați în instrucțiunea IF pentru a determina 
relaţia dintre valorile a două expresii : 


operator semnificaţie [! Poperator semnificaţie 
= egalitate >= sau =>. mai mare sau egal, 
> mai marej = sau =<! mai mic sau egal, 
< mai mic > SU > neegalitate. 


9.2.4. Funeţii. În alcătuirea expresiilor pot fi utilizate următoarele funcţii 
matematice : 

SIN(x) — sinus de x, unde x este un unghi exprimat în radiani; 

COS(x) — cosinus de x, unde x este exprimat în radiani; 

TAN(x)— tangentă de x, unde x este exprimat în radiani; 

ATN(x)— arctangentă de x. Rezultatul este exprimat în radiani : 


(—PI1/2 < ATN (x) < PI/2) ; 


LOG(x)  — logaritm natural din x; 
EXP(x)  — calculează e*; 
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Observaţie : 
Constantele si și e sint definite intern, în interpretor, şi pot fi utilizate 
În expresii prin simbolurile PI şi respectiv EE. 
SOR(x) — calculează rădăcina pătrată din x. 
ABS(x) — calculează valoarea absolută a lui x. 
INT(x) — calculează cel mai mare întreg <x. 
RND(x) — calculează un număr aleator în intervalul (0, 1). Valoarea 
argumentului x nu are importanţă în calcul. 
SGN(x) — returnează : 
1, dacă x>0 
0, dacă x=0 
—1, dacă x<9. 


În toate funcţiile descrise, argumentul x poate fi în general o expresie 
oarecare. 

Argumentele funcţiilor LOG şi SQR trebuie să fie numere pozitive, în 
caz contrar sistemul va răspunde printr-un mesaj de eroare. 

În situația cînd, în calculul unei funcţii (expresii), rezultatul depășește 
scala numerelor reprezentabile în calculator (2.71051E-20, 9.22337E£18), se 
afişează la consolă un mesaj de eroare (UNDERFLOW sau OVERFLOW 
IN LINE NN), execuţia programului continuînd. Ca rezultat al funcţiei (ex- 
presiei) se ia cea mai mică, respectiv cea mai mare valoare reprezentabilă 
(corespunzător depășirii). De pildă, în cazul funcţiei EXP(x), valoarea argumen- 
tului trebuie să fie cuprinsă aproximativ între —45 < x < 44, pentru ca re- 
zultatul ex să poată fi reprezentat intern. 

Funcţia INT calculează cel mai mare întreg, mai mic,sau egal cu argu- 
mentul. 

Astfel : INT(7.25)=7 

INT(—7.25)= —8 
INT(—.1)=—1 

INT poate fi utilizată pentru a rotunji un număr la cel mai apropiat 
întreg. 

Astfel, INT(x+0.5) va calcula întregul cel mai apropiat de x. 

Pe lingă funcţiile descrise mai sînt disponibile : funcţii pentru lucrul cu 
şiruri de caractere, precum și funcţii speciale de intrare/ieșire. 

Astfel, pentru lucrul cu şiruri de caractere, se pot utiliza funcţiile : 


VAL.(şir) — calculează valoarea numerică a şirului, tratat ca o expresie 
aritmetică. De exemplu: VAL(“127.5-B“)=7.5, dacă variabila 
B are valoarea 120. 


LEN(şir) — calculează lungimea șirului specificat. De exemplu: 
LEN(“ABC123")=—6, sau dacă A$="*B79“, atunci LEN(A$)=$ 


STR$ (expresie) — calculează valoarea expresiei, iar rezultatul formează un 
şir de caractere, ca şi cum ar fi tipărit cu instrucțiunea PRINT. 


De exemplu STR$ (127.5-B)=*7.5*, dacă variabila B are valoarea 
120. 
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CHR$ (expresie) — calculează (determină) caracterul care are codul ASCII 
egal cu valoarea expresiei. De exemplu CHRS(65)=*A“ 


INKEY $ — citeşte un caracter de la tastatură (în cazul în care a fost 
acționată o tastă) şi întoarce codul ASCII al caracterului. În 
cazul cînd nu s-a acționat nici o tastă rezultatul este şirul nul (* *). 


Funcţiile VAL şi LEN pot fi folosite în orice expresie (aritmetică). însă 
pe prima poziţie în cadrul expresiei. Funcţiile STR$, CHR$ şi INKEYŞ 
pot fi folosite numai în expresii de tip şir. 

Pentru executarea unei operaţii de intrare/ieșire, pe un port specificat, 
se pot folosi funcţiile : 


GET(x) — citeşte un octet de la portul numărul x, P < x < 255. 
Valoarea funcţiei va îi un număr întreg, 0 s< GET(x) < 255. 
Funcţia GET poate fi folosită în orice expresie. 


PUT(x) — poate apărea numai în membrul stîng al unei instrucţiuni de atri- 
buire. Execuţia funcţiei constă în transmiterea la portul cu numărul 
x, a valorii expresiei din membrul drept, al instrucţiunii de atri- 
buire. 

Exemple : 


10 PUT(127)=A+17 


Expresia din membrul drept este evaluată, convertită în întreg, iar cei 
mai puţin semnificativi opt biţi sînt trimiși la portul 127. 

Instrucţiunea : 19 PUT (127)=GET (255), va citi un octet de la portul 
255 şi-l va transmite la portul 127. 


9.2.5. Expresii. Expresiile utilizate în instrucțiunile BASIC sint de două 
tipuri : expresii aritmetice (le vom numi, pe scurt, expresii) şi expresii şir (sau 
şiruri). 

Expresiile şir pot conţine ca operanzi: constante șir, variabile şir sau 
subșiruri precum și funcţiile ce au ca valoare șiruri de caractere : STR$, CHRŞ, 
şi INKEY$. Ca operator, în formarea expresiilor şir, poate îi utilizat operatorul 
de concatenare, notat +. De exemplu : “123*+“ABC“=—*123ABC“, sau CHR$Ş 
(65)4+STR$(124+7)-+“CASA“ =" AI2CASA“. 

Expresiile aritmetice pot fi compuse din constante, variabile simple sau 
indexate, funcții, legate între ele prin operatori aritmetici etc. 

Exemple : 109 

VAL (/70.5+B”) 
(5—x4 4 3) » (2 (k-1, I-A/LOG (Z+1)) 


Ordinea de execuţie a operaţiilor. 


— În expresiile fărăfparanteze succesiunea este următoarea : 
1. calculul valorilor funcțiilor, 
„2. ridicarea la putere. 
3. înmulţiri şi împărțiri (cu prioritate egală), 
4. adunări şi scăderi (cu prioritate egală). 
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— Dacă două sau mai multe operaţii de aceeași prioritate apar într-o expresie, 
ele se efectuează în ordine, de la stînga la dreapta, cu excepția ridicării la putere, 
unde execuţia este de la dreapta spre stînga. 


Exemplu : 
34273=—348=6561 


— Dacă într-o expresie apar paranteze, se vor executa întii operațiile cuprinse 
între paranlezele interioare. 


Observaţii : 
1. Singurele paranteze admise sînt parantezele rotunde. 
2. Operaţiile aritmetice trebuie scrise explicit. 
Exemplu : 


54B se va scrie: 5*A*B. 


9.2.6. Instrucţiuni şi comenzi. Elementele principale ale limbajului 
BASIC sînt instrucțiunile şi comenzile limbajului. Sintactic, instrucţiunile se 
deosebesc de comenzi prin faptul că orice instrucțiune este etichetată, adică 
orice instrucţiune începe cu un număr întreg (pe care-l vom numi număr de 
linie), cuprins între 0 şi 32767. 

Numerele de linie au un dublu rol: 

— determină ordinea de execuție a instrucţiunilor (instrucțiunile pot 
fi introduse în orice ordine, însă vor fi executate în ordinea crescătoare a nume- 
relor de linie) ; 

— sînt utilizate în instrucțiunile de transfer, pentru referirea instruc- 
țiunilor. 

Comenzile şi instrucțiunile vor fi prezentate detaliat în capitolele urmă- 
toare. 


9.2.7. Exereiţii 


1. Dacă dispuneţi de un tabel cu logaritmi, încercaţi să verificaţi următoarea regulă i 
a ridica 10) la o putere este echivalent cu inversul logaritmului din acel, număr. Introduceţi: 


10 PRINT 104 0.3020 
20 END 
RUN 


şi urmăriţi în tabela de logaritmi, inversul logaritmului din 0.3020. De ce cele două rezuitate nu 
sint exact egale ? 


Observaţie : În continuare, instrucțiunea END de la sfirșitul programului și comanda RUN ce 
lansează în execuţie programul, nu vor mai fi specificate explicit, considerindu-se subiînţeles. 

2. S-a văzut că numerele sint reprezentate în formatul cu virgulă mobilă, format care 
permite reprezentarea unei game largi de valori numerice reale, precizia reprezentării (6—7 cifre 
semnificative) nedepinzind de valoare. Executaţi însă următoarea instrucțiune î 


10;PRINT 1E65+1—1E8, 1E8—1E8+1 


Observaţi că pentru calculator 1E8 și 1£8+1 sînt valori egale. 
3. Pentru obţinerea logaritmilor zecimali (cei găsiţi în tabelele de logaritmi), împărţiţi 
logaritmul natural prin LOG (10). Astfel, pentru a calcula log 2 se foloseşte instrucțiunea i 


10 PRINT LOG (2)/LOG (10) 


Elementele limbajului BASIC 53 


obţinînd rezultatul 0.301029. Încercaţi să faceţi înmulţiri şi împărțiri cu logaritmi servindu-vă 
de calculator ca de o tabelă de logaritmi. Pentru test, puteţi folosi exerciţiul 1, care calculează 
inversul logaritmului. 


4. EXP și LOG sînt funcţii inverse una alteia. Aplicîndu-le succesiv unui număr, îl vor 
lăsa neschimbat. 

Exemplu : LOG (EXP (2))=EXP (LOG (2))=2. 

Acest lucru este valabil şi pentru funcţiile TAN și ATN. Puteţi utiliza acest exercițiu 
pentru a testa precizia de calcul a funcţiilor respective de către calculator. 


5. Se ştie că radiani reprezintă 180. Pentru a transforma o mărime exprimată în grade, 
în raiani, o împărțim prin 180 şi înmulţim cu x, astfel: 


10 PRINT TANȚ(45/180 * PI) 


calculează tan 450 (=1). Pentru a transforma radianii în grade, trebuie să împărţim prin s și 
să înmulțim cu 180. 


6. Cum utilizaţi funcţiile RND şi INT pentru a obţine un număr aleator între 1 şi 6, care 
ar putea reprezenta aruncarea unui zar ? (Răspuns : INT (RND (1) + 641). 


7. Pentru a testa precizia cu care este memorat m de către calculator, executaţi instruc- 
țiunea : 10 PRINT PI, PI-3 PI-3.1 P1-3.14, PI-3.141. 


8. Funcţia INT rotunjește la întreg prin lipsă. 


Pentru a rotunji la întregul cel mai apropiat se adună 0.5.) 
Exemple : 


INT (2.94+0.5)=3 INT (5.44-0.5)=5 
îNT (—2.940.5)=—3 INT (—5.44-0.5)=—5 


Comparaţi cele de mai sus cu rezultatele obţinute în cazul că nu adunaţi 0.5. 
9. De ce numele unei variabile trebuie să înceapă cu o literă ? 
10. Reamintim citeva reguli de calcul cu puterj 


A10=1 
A4(—B)=1/A+B] 
A 4 (1/B)=|rădăcinajde ordin B din A 
A 4 (B+O)=A 4 BA 4 C 
și 
A4(B=*0)=(44+B)4C 


unde A şi B sint numere întregi pozitive. 
Testaţi aceste reguli utilizând calculatorul pentru calculul diferitelor expresii conținind + ș 
De exemplu ! 
10 PRINT 34 (240), 342+340 
20 PRINT 44 (—1), 1/4 
11. Valoarea lui e, baza logaritmilor naturali, este 2.71828. Ea este memorată intern cu 


numele EE. Verifieaţi dacă t 
EXP (X)=EE 4 X 


pentru diverse valori ale lui X. 
12. Executaţi următoarele instruoțiuni 1 


19 LET A$=“ATN (1) «4 
20 PRINT A$; ="; VAL (AS) 


(Razultacul tipărit? este 7) 
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Repetaţi execuția schimbind instrucțiunea 10. 


De exemplu : 
5 LET X=9 
10 LET A$="X43+2+X 


Reexecutați pentru expresii din 'ce în ce mai complicate atribuite variabilei șir AŞ. 
13. Unele versiuni ale limbajului BASIC utilizează următoarele functii pentru lucrul 
cu şiruri : LEFTŞ,]RIGHI$, MID$ și TL$, cu următoarele semnificaţii + 


LEFT$ (AȘ, N) — calculează subșirul lui AŞ compus din primele N caractere, 

RIGHT$ (AS, N) — calculează subşirul lui A$ compus din ultimele caractere începînd cu 
al N-lea. 

MID$ (AŞ, 1, N2)  — calculează subșirul lui A$ compus din N2 caractere începînd cu 
al Ni-lea caracter din AŞ. 

TL$ (A$) — calculează subșirul lui AŞ format din toate caracterele lui A$ cu excep- 


ţia primului. 
Încereaţi să descrieți funcţiile de mai sus cu ajutorul decupării cu TO, 
14. Executaţi programul : 


10 A$=CHR$ (INT (AND (0)*10-4+48)) 
20) PRINT A$ 
30 GOTO 10 
(instrucțiunea GOTO 10) indică repetarea execuţiei de la linia 10). 


Programul tipărește o citră (între 0-9), deoarece 48 este codul cifrei () la care se adună 
un număr aleator între 0) şi 9, dind codul ASCII al unei cifre (între 48 şi 57). Puteţi da altă soluție 
pentru generarea unui număr întreg între ( și 9? 


9.3. Comenzile și modul de utilizare 
al interpretorului BASIC 


9.3.1. Lansarea în execuție a interpretorului BASIC. Interpretorul 
BASIC este depus în memoria cu conţinut permanent (PROM), începînd de 
la adresa 800H (hexazecimal). De aceea poate fi lansat în execuţie cu ajutorul 
comenzii G0800, a monitorului sistemului, ca orice program utilizator. Pentru 
simplitate, s-a prevăzut între comenzile monitorului, o comandă specială pen- 
tru a lansa în execuţie interpretorul BASIC, anume comanda B*. 

Cînd interpretorul BASIC intră în execuţie, va tipări pe display mesajul 
READY, indicînd faptul că se aşteaptă instrucţiuni sau comenzi de la utili- 
zator. În continuare, utilizatorul va introduce un program de la tastatură sau 
va citi un program de pe casetă magnetică. Programul astfel introdus poate 
fi executat, listat pe display sau modificat (cu ajutorul unor facilități de edi- 
tare) după dorința utilizatorului. După execuție, programul poate fi salvat pe 
casetă și șters din memorie, pentru a se introduce un nou program. 

La terminarea unei sesiuni de lucru cu interpretorul BASIC, se va ieşi 
de sub controlul interpretorului acționînd comutatorul (RESET) de la consolă, 
lansîndu-se în execuție monitorul sistemului. 

Există două situaţii speciale de lansare în execuţie a interpretorului 
BASIC. 


* Comanda B este disponibilă numai în versiunea VB.1. 
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În prima situaţie, se utilizează subrutine în limbaj maşină, apelate din- 
tr-un program BASIC. În acest caz, înainte de lansarea în execuţie, a interpre- 
torului, se va introduce în memorie codul pentru subrutinele apelate, cu aju- 
torul comenzilor monitorului. Apoi se lansează interpretorul BASIC de la 
adresa 815H (deci cu comanda G0815). 

În cea de-a doua situaţie lansarea interpretorului are loc de la adresa 
829H, fără inițializări. Lansarea de la această adresă (cu G(829) se folosește 
cind în memoria utilizată de interpretor pentru păstrarea programelor, se află 
un program care nu trebuie şters (de exemplu cînd s-a ieșit din BASIC în 
Monitor şi se doreşte să se intre iarăşi sub controlul interpretorului, fără șter- 
gerea programului BASIC introdus în sesiunea anterioară). 


9.3.2. Editarea programului. Există facilităţi de corectare a unei linii 
în cursul introducerii ei de la consolă (tastatură), sau de editare a programului 
deja introdus (ştergerea unei linii sau înlocuirea ei cu altă linie). 

Astfel : 

— ştergerea ultimului caracter introdus se realizează acționind DEL 

— ştergerea liniei în curs de introducere se face acționind simultan 
CIRL şi * 

— ştergerea unei instrucţiuni din program se face prin tipărirea numă- 
rului ei de linie şi RETURN. 

O instrucțiunea se poate înlocui prin tipărirea noii instrucțiuni cu acelaşi 
număr de linie cu vechea instrucțiune. 


Observaţie : Orice linie introdusă de la consolă (instrucțiune, comandă sau 
linie de dale) va fi luată în considerare de sistem la acționarea lui RETURN. 


9.3.3. Listarea şi salvarea pe casetă a unui program. Un program BASIG 
aflat în memorie poate îi listat la display sau salvat (stocat) pe casetă mag- 
netică. Aceste operaţii pot fi executate indiferent dacă programul a fost exe- 
cutat sau nu. Pentru listarea programului se folosește comanda : 


LIST NI1,N2 


unde: NI şi N2 sînt numere de linie. 

Execuţia comenzii constă în listarea programului existent în memorie 
în ordinea crescătoare a numerelor de linie. Parametrii N1 și N2 sînt opţio- 
nali. În cazul în care se specifică un singur număr de linie se vor lista instruc- 
ţiunile ce au numărul de linie mai mare sau egal cu numărul specificat în 
comanda LIST. Cînd sa specifică ambii parametrii, se vor lista instrucțiunile 
care au numărul da linie cuprins între NI şi N2 inclusiv. Execuția comenzii 
poate fi oprită de la consolă, acționind CTRI,. 
ti Acu 

Pentru salvarea pe casetă a unui program se folosește comanda SAVE. 
Dacă programul foloseşte subrutine în limbaj maşină, la comanda SAVE se 
salvează automat şi subrutinele apelate. Dacă comanda SAVE este executată 
după ce programul a fost executat, atunci se salvează pe casetă şi valorile 
variabilelor utilizate în execuţia programului. 

Deoarece identificarea programelor de pe easetă se face manual de către 
utilizator, este bine ca înainte de salvarea unui program să se înregistreze 
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pe casetă un text vorbit (titlu), referitor la programul ce urmează, necesar 
identificării. Apoi se conectează casetofonul pe înregistrare la calculator şi se 
lansează în execuție comanda SAVE. 


9.3.4. Citirea unui program de pe casetă. Pentru citirea unui program 
de pe casetă se foloseşte comanda LOAD. Înainte de a executa comanda 
LOAD, trebuie să se depisteze (sonor) începutul programului (după titlul 
înregistrat la salvarea programului) și apoi să se conecteze casetofonul la cal- 
culator, pe redare. Programul este citit de pe casetă în memoria calculato- 
rului împreună cu eventualele subrutine în limbaj mașină și cu variabilele, 
exact în starea în care a fost salvat, vechiul program din memorie fiind şters. 

Pentru o citire cît mai fiabilă este bine ca volumul redării să fie reglat 


corespunzător. 


9.3.5 Execuţia unui program. Pentru a lansa în execuţie un program 
BASIC aflat în memorie se pot folcsi comenzile : 


RUN nr. linie 
sau 
GOTO nr. linie 


execuţia programului începînd de la linia cu numărul specificat în comandă. 
Pentru comanda RUN, numărul de linie poate să lipsească, caz în care exe- 
cuția începe cu prima instrucțiune din program. Deosebirea dintre cele două 
comenzi constă în faptul, că RUN iniţializează (şterge) variabilele înainte de 
lansarea în execuţie, pe cînd GOTO păstrează valorile variabilelor obținute 
într-o execuţie anterioară. De exemplu, dacă se citește un program de pe 
casetă împreună cu valorile variabilelor (eventual tablouri), atunci lansarea 
sa În execuţie se va face cu comanda GOTO nl, nl fiind numărul de linie 
al instrucţiunii aflată după instrucţiunea DIM în program, pentru a se putea 
folosi valorile variabilelor tablou salvate pe casetă. Dacă nu se doreşte utili- 
zarea valorilor variabilelor, obţinute într-o execuţie anterioară, programul 
poate fi lansat în execuţie cu comanda RUN. 


Observaţie : Pentru a nu se salva valorile variabilelor pe casetă atunci 
cînd nu sînt necesare, trebuie să se știe faptul că tabela de variabile este 
ştearsă în următoarele cazuri : 

— la introducerea unei noi linii în program, 

— la ștergerea unei linii din programa, 

— la execuţia comenzii SCRATCH (însă în acest caz este șters şi pro- 
gramul). 

Execuţia unui program este oprită la : 

— depistarea unei erori în program, 

— execuția unei instrucţiuni STOP sau END 

— întreruperea de la consolă, acţienind caracterul CTRL, 

— întreruperea de la consolă, acționind RESET, caz în care se intră sub 
controlul Monitorului. pă 

La terminarea execuţiei, sistemul tipăreşte READY. După! eventuale 
corectări iaserări de instrucțiuni, programul poate fi executat din nou. 
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9.3.6. Ştergerea unui program din memorie. Înainte de introducerea 
unui nou program de la tastatură, vechiul program din memorie trebuie sters, 
altfel liniile lui vor interfera cu liniile noului program. Pentru ştergerea progra- 
mului din memorie (inclusiv a eventualelor subrutine în limbaj mașină) se 
folosește comanda : SCRATH (sînt suficiente primele trei caractere: SCR). 


9.3.7. Exerciţii 


1. S-a văzut că variabilele utilizate de un program în timpul execuţiei sint şterse din 
memorie la introducerea sau ștergerea unei instrucțiuni a programului și la comanda SCR. În 
toate aceste cazuri, este alterat însă și programul o dată cu ștergerea variabilelor (desigur, există 
posibilitatea de a șterge o linie și a o reintroduce cu același conținut). 

O posibilitate de a șterge variabilele fără a altera programul, este prin execuţia comenzii 
RUN ni, unde ni este numărul de linie al instrucţiunii END sau STOP din program. 


Acest lucru este valabil deoarece, la începutul execuţiei programului, prin comanda RUN 
se șterg variabilele utilizate de program (într-o execuţie anterioară), iar apoi se va executa instruc- 
ţiunea END sau STOP. Ştergerea variabilelor este utilă, în cazul salvării pe casetă a progra- 
melor ce conţin variabile (eventual tablouri), ale căror valori nu sînt necesare la reîncărcarea 
de pe casetă. Testaţi acest lucru, pentru programe care conțin tablouri suficient de mari, și veţi 
observa diferenţa de timp la salvare și încărcare pe casetă. 


2. Executaţi următorul program 1 


10 LET X=7 
20 PRINT X 
30 END 


folosind comanda RUN. Executaţi acum programul începînd de la linia 20 cu comenzile GOTO20 
și RUN20. Observaţi că rezultatul este diferit (în primul caz este 7 în al doilea 0). Acest lucru 
se datorează faptului că, comanda RUN șterge variabilele rămase dintr-o execuţie anterioară 
(lucru care s-a mai spus), iar interpretorul BAS IC consideră variabilele nedetinite ca avind valoa- 
rea zero. 


3. Pentru a testa faptul că comanda SAVE salvează împreună cu programul și variabilele 
utilizate, se poate introduce un program, de exemplu cel de la exerciţiul 2, și după execuţie se 
va salva pe casetă, Pentru salvare se vor executa următoarele acţiuni ! 

— poziţionarea benzii în zona în care se doreşte să se înregistreze programul, 

— utilizînd microfonul, se va da un nume programului ; acest lucru nu este absolut nece- 
sar, dar este util pentru regăsirea ulterioară a programului, 

— se conectează casetofonul (prin cablul corespunzător) cu calculatorul, 

— se introduce comanda SAVE (fără a acţiona tasta RETURN), 

— se comută casetofonul pe înregistrare, 

— se acționează RETURN, 

— se urmărește apariţia pe ecranul televizorului a mesajului de sfirșit de operaţie 
(READY). La apariţia mesajului, opriţi casetofonul. Pe durata înregistrării se va auzi un zgomot 
specific, în difuzorul asociat calculatorului, iar imaginea pe televizor va fi formată din dungi 
variabile (în primele 10) secunde din înregistrare, se depune un preambul necesar sincronizării, 
jar apoi programul BASIC și variabilele). 


În continuare, se șterge programul din memorie cu ajutorul comenzii SCR (se;poate testa, 
eă memoria nu conţine nici un program, introducind comanda LIST). 

În continuare, se încarcă programul de pe casetă în memorie executind următoarele 
acţiuni î 

— se rebobinează banda pentru a o aduce la începutul fișierului (zonei) cu programul. 
Pentru depistarea începutului programului se va face uz de numele înregistrat înaintea progra- 
mului, 

— se cenectează casetofonul la calculator, pe redare, 

— se reglează volumul redării suficient de mare (3/4), iar tonalitatea la valoare înaltă 
(dacă casetofonul are reglaj de tonalitate), 

— se introduce comanda LOAD (fără a acţiona tasta RETURN), 
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— se pornește casetofonul, 
— se urmărește dacă beculeţul de la consolă s-a aprins și apoi se acționează RETURN, 


— se urmărește apariția pe ecranul televizorului a mesajului de sfirșit de încărcare. 
Astfel, în cazul în care operaţia a decurs fără erori, vor fi afișate două numere în hexazecimal 
care reprezintă : adresa de început a zonei de memorie salvată pe casetă şi respectiv — lungimea 
ei (numărul de octeți). Apoi este tipărit mesajul READY, de către interpretor. În cazul în care 
s-au depistat erori la încărcare, monitorul va tipări ? și va prelua controlul. În acest caz, încăr- 
carea programului de pe casetă trebuie reluată, însă este indicat a se intra în BASIC din monitor 
cu comanda G(829 (fără iniţializări), pentru a se lista (cu LIST) programul încărcat și a se constata 
amploarea erorii de încărcare. Uneori eroarea poate fi corectată editind o anumită linie, fără a 
mai încărca încă odată programul de pe casetă. 

După încărcarea programului, se execută comanda GOTO20, și se observă că rezultatul 
este 7, deci împreună cu programul a fost salvată și variabila X. 


4. Introduceţi un program BASIC și apoi opriţi alimentarea de la reţea a calculatorului, 
Realimentind calculatorul și lansînd interpretorul BASIC veţi constata că programul s-a pier- 
dut. Deci, în cazul programelor mari, este indicat salvarea lor pe casetă, chiar în faza de punere 
la punct, pentru a nu risca reintroducerea lor în întregime. 


9.4. Instrucţiunile limbajului BASIC 


9.4.1. Exemplu de program. Înainte de a începe prezentarea instrucţiunilor limbajului 
BASIC, se va da un exemplu de program scris în BASIC, pentru rezolvarea sistemului de două 
ecuaţii lineare cu două necunoscute. 


ax+by=c 
dx-+ey=i 


Sistemul are soluție unică dacă ae-bdz 6, caz în carei 


ce—bi af—cd 


acea î YI ae—bă 


Dacă ae—bd=—f, atunci, fie nu există nici o soluție (sistem imposibil), fie există o infini- 
tate de soluţii (sistem nedeterminat) însă, nu există soluție unică. Programul este următorul i 


10 REM “PROGRAM CE REZOLVA UN SISTEM“ 

15 REM “DE DOUA ECUATII LINEARE“ 

20 PRINT “INTRODUCETI COEFICIENTII A, B, C, D” 
30 INPUT A,B,C,D 

40 LET G=A*E—B*D 

50 IF G=0 THEN 120 

60 PRINT “INTRODUCETI TERMENII LIBERI C, F” 
70 INPUT C,F 

80 LET X=(C*E—B*F)/G 

90 LET Y=(A*F—C*D)/G 

100 PRINT X, Y 

110 STOP 

120 PRINT “SISTEMUL NU ARE SOLUTIE UNICA” 
139 END 


Privind acest program se observă în primul rînd că, în scrierea sa, sint 
folosite numai litere mari. În al doilea rînd,se constată că fiecare linie a pro- 
gramului începe cu un număr; el este numărul de linie discutat în capitolul 
precedent. În al treilea rînd, se observă că fiecare instrucţiune începe, după 
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numărul de linie, cu un cuvînt care determină tipul instrucţiunii. Astfel, în 
exemplul dat sînt folosite şapte instrucţiuni (REM, PRINT, INPUT, LET, 
IF, STOP şi END). 

O altă observație, care nu este evidentă din program, constă în aceea 
că, în BASIC spaţiile nu au nici o semnificaţie, cu excepţia celor din textele 
cuprinse între semnele apostrof (ca în liniile 10,20,60). 

În continuare vor fi prezentate, pe rînd, instrucţiunile limbajului BASIG 


9.4.2. Comentarea unui program. Primele două instrucțiuni, din exem- 
plul de mai sus, nu au nici un rol în rezolvarea sistemului de ecuaţii. Ele sînt 
scrise pentru a introduce comentarii într-un program BASIC. 

Formatul instrucţiunii este : 

nr. linie REM comentariu 

Instrucţiunea REM poate apărea oriunde se doreşte introducerea unui 
comentariu, în cadrul unui program. Deoarece sistemul elimină spațiile din orice 
şir de caractere neinclus între semnele apostrof (”) este bine ca un comentariu să 
se includă între aceste semne. 

Exemplu : 


130 REM ”COMENIARIILE OCUPA „MEMORIE UTILA” 


9.4.3. Terminarea unui program. Pentru a opri execuția unui program, 
pot fi utilizate instrucţiunile END sau STOP. 
Formatul instrucţiunii STOP este: 


nr. linie STOP 
La întîlnirea instrucţiunii STOP în program, sistemul va scrie mesajul 3 
STOP AT (NN 


unde NN este număru de linie al instrucţiunii STOP care a produs oprirea 
execuției. Într-un program pot fi utilizate mai multe instrucţiuni STOP, în 
funcţie de necesități. În exemplul din paragraful 9.4.1. instrucțiunea STOP are 
numărul de linie 110. 

Formatul instrucţiunii END este: 


nr. linie END 


Spre deosebire de instrucțiunea STOP, într-un program trebuie să existe 
o singură instrucţiune END şi să fie ultima instrucțiune din program (să aibă 
numărul de linie cel mai mare). 


9.4.4. Instrucţiunea de atribuire (LET). Formatul instrucţiunii LET este 
următorul : 

nr. linie variabilă = expresie 
sau 

nr. linie LET variabilă = expresie 
unde : 

— variabila poate fi o variabilă numerică sau variabilă șir, simplă sau 
indexată, sau funcţia PUT ; 

— expresia din membrul drept poate fi aritmetică sau expresie șir. 
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Execuţia instrucţiunii constă în evaluarea expresiei din membrul drept 
şi atribuirea valorii obținute, variabilei din membrul stîng. 


Exemple : 
5 B=B+1 20 C$=INKEY$ 
10 A$="ABCD179% 39 LET A=4.17+GQ 


Observaţie 3 
O variabilă utilizată într-o expresie, fără a fi fost definită în prealabil, pri- 


mește automal valoarea zero. Astiel, în instrucţiunea 30 de mai sus, dacă vari- 
abila C nu a fost definită, valoarea lui A după execuţia instrucţiunii 30 va fig4.17. 


50 X=X+Y 43.5 
60 LET W7=((W—X)/4.3)*SQR (Z(1)—A)/B 
90 AS (7 10 10)=CHRS (65)4-,,123% 

Dacă expresia şir atribuită unei variabile şir, este mai lungă decît dimen- 
siunea variabilei (stabilită prin DIM sau printr-o atribuire anterioară), atunci 
se atribuie variabilei şir doar prima parte din expresia şir (egală cu lungimea 
variabilei), restul expresiei șir ignorîndu-se. Dacă lungimea șirului din membrul 
drept este mai mică decît lungimea variabilei şir, restul de caractere 2 com- 
pletează cu spații. 

Exemple î 
10 A$=—"'12345678” 
50 A$ (2T05)=,,ABCDEFG”] 

În acest caz, A $ va deveni “1ABCD678”, deci, au fost păstrate doar 
primele patru caractere din şirul "ABCDEFG”. Dacă în locul instrucţiunii 20 
de mai sus, se folosea instrucțiunea : 


20 A$ (2T05)="AB” 
valoarea variabilei A $ ar fi devenit ”1AB7678” 
39 B$=STR$ (A4B—17)4"'MEDIA” 
49I (, INT (K 4 10))=COS (EXP (K+1) 
9.4.5. Utilizarea variabilelor indexate (DIM) 
Formatul instrucţiunii este : 
nr. linie DIM tableu 1 (dimens), tablou 2 (dimens, dimens) .-s 
unde : 
— tablou 1, tablou 2, sînt identificatori (nume) de tablou (vectori, 
matrici sau variabile şir) + 
— dimens reprezintă expresii ale căror valori definesc dimensiunile table- 
urilor ; este necesară îndeplinirea condiției: 
1 << dimens sQ24 


Tablourile numerice pot avea una sau două dimensiuni (vectori sau 
ma trici) 
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Exemplu : 
110JDIM A (50), B(M,N) 
Instrucţiunea 110) declară două tablouri A și B, A fiind un vector cu 


50 de elemente, iar B o matrice cu MXN elemente (M, N cunoscute). 

Execuţia instrucţiunii constă în alocarea, memoriei pentru tablourile 
declarate şi iniţializarea tuturor elementelor ale fiecărui tablou numeric cu 
zero. 

Tablourile de variabile şir trebuie declarate în instrucțiunea DIM, indi- 
cîndu-se numărul de variabile şi lungimea variabilelor. 

Exemplu : | 

10 DIM AS (15,20), BS (50)] E 3 

Instrucţiunea 10) declară un tablou A $ format din 15 variabile şir a cîte 
20 de caractere fiecare şi o variabilă şir B $ cu lungimea de 50 de caractere. 
De remarcat faplul că, variabilele şir (exemplu B $) nu trebuie declarate într-o 
instrucțiune DIM, ele putind fi utilizate direct în instrucțiuni de atribuire sau de 
intrare/ieșire. "Tablourile șir trebuie declarate într-o instrucțiune DIM înninte 
de utilizare. Folosirea lor se face prin specificarea unei anumite variabila şir 
componente, şi nu a întregului tablou. De exemplu, instrucţiunea : 


20, A $,=—"1234” 
este incorectă pentru că, A $ a fost declarat tablou în instrucțiunea 16, 
Corect ar fi: 
[20 AS (2)=m''1234” 


instrucțiunea în urma căreia, variabila a doua din tabloul A $ primeşte valoarea 
1234”. Tot corectă este şi instrucţiunea : 


20 AS (2]10 TO 13)="1234” 


În cazul tablourilori(variabilelor) şir, execuţia instrucţiunii DIM constă 
în alocarea de memorie, cîte un octet pentru fiecare element (caracter), ini- 
țializat eu codul spaţiului (ADH). 

Tablourile numerice şi cele şir pot fi declarate intercalat, în aceeaşi 
instrucțiune DIM. 

Exemplu : 


10 DIM A (10, 10), B$ (100), C(10) 
9.4.6. Exerciţii 
1. Introduceţi următoarea secvenţă de instrucțiuni î 


10 LET A$="9X*+*Y”] 30 LET AŞ (4)=CHR$ (162) 
204 LETEAŞ (2)=CHR$ (162) 40 PRINT A$ 
(162 este codul ghilimelelor) 
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De remarcat că secvenja de mai sus nu este echivalentă cu : 
19 LET A$="X" 53477 y” 


deoarece, în acest caz, membrul drept al instrucţiunii de atribuire este tratat ca o expresie de 
tip șir, evaluată la ''XY''. O altă modalitate corectă de a intrcduce ghilimele într-un şir 
este introducerea sucesivă. Actfel instrucțiunea : 


10 LET AŞ="X" Lat da dl 
este echivalentă cu secvența de mai sus. 


2. Fie secvenţa de instrucțiuni: 


10 LET A$='12345678 40 PRINT A$ 
20 PRINT A$ 50 LET A$=''1234" 
30 LET A$="ABC” 60 PRINT A$ 


După execuţie se va obţine eroarea 28 în linia 50. Acest lucru este consecința faptului 
că în linia 30 are loc o redimensionare a șirului AŞ, la lungimea de 3 caractere (de la 8 cite avea 
inițial). Pentru a evita această redimensionare, linia 34) se poate scrie 30 LET A$ (TO)= "ABC, 
şirul AŞ rămîn înd de lungime 8, prin completarea șirului “ABC” cu 5 spaţii. Deci, trebuie reținut 
faptul că în gestiunea șirurilor nu se folosesc doi indicatori de lungime : unul păstrînd lungimea 
maximă, iar celălalt lungimea efectivă a șirului (sau lungimea maximă să fie pentru toate șirurile 
o constantă, exemplu 256 caractere). 


2, Introduceţi programul 1 


5 DIM B$ (3, 8) 40 PRINTgBS (2) 

10 LET B$ (2)=''12345678 50 LET B$ (2)="'12345 ' 
20 PRINT B$ (2) 60 PRINT B$ (2) 
30 LET B$S()="MPQ'” 70 END 


Executînd programul nu se va obţine eroare, ca în cazul exerciţiului precedent. Deci, 
în cazul tablourilor de șiruri, nu are loc redimensionarea unui șir component la o valoare mai 
mică, ci se păstrează dimensiunea (8) declarată în DIM, prin completarea automată cu spaţii. 
Pentru a nu se completa cu spaţii (păstrindu-se totuşi dimensiunea de 8 caractere) se poate 
utiliza specificarea cu TO. Astfel instrucţiunea 30 devine : 30 LET B$ (2,1 T03)="MPQ. 


În acest caz, şirul tipărit de instrucțiunea 40) va fi : ''MPQ45678”. 


4. În cazul utilizării unor tablouri mari se poate obține la execuție mesajul de eroare 
MEMORY FULL, indicînd faptul că nu mai există memorie suficientă pentru alocarea tablou- 
lui. Trebuie să se aibă în vedere faptul că, pentru fiecare element al unei variabile tablou numerice, 
se alocă cîte 4 octeți. Astfel, instrucţiunea 10 DIM A (11,11), B (16,16) va aloca două tablouri 
numerice, primul ocupînd aproximativ 0,5 Ko şi al doilea 1 Ko. Ce acţiuni se pot indica la apari- 
ţia acestui mesaj de eroare? 


9.4.7. Instrucţiuni de intrare/ieşire. Instrucţiunile de intrare/ieşire per- 
mit să se introducă date (valori ale variabilelor) pentru program și să tipărească 
rezultate sau mesaje către utilizator. În execuţia acestor instrucțiuni sînt 
folosite în mod obişnuit tastatura şi display-ul, însă pot fi utilizate oricare 
din perifericele sistemului, dacă se au în vedere facilităţile mai deosebite de 
intrare/ieşire materializate prin funcţiile GET și PUT sau subrutine în limbaj 
mașină, apelate din programul BASIC, cu instrucțiunea CALL. 


Iustrueţiunea INPUT. 
Format;: 
nr. linie INPUT listă de variabile 
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Lista de variabile poate conține variabile simple şi variabile indexate 
sau variabile șir, separate prin virgule. 

Instrucţiunea INPUT este folosită pentru atribuirea de valori variabilelor 
din listă, valorile fiind introduse de la tastatură (consolă) în timpul execuției 
programului. 

Atunci cînd se execută instrucțiunea INPUT, sistemul va tipări la con- 
solă(:) indicînd că aşteaptă date de la consolă. Se vor introduce constantele 
dorite separate prin virgule, linia introdusă va fi luată în considerare de sis- 
tem la acționarea tastei RETURN. Dacă s-au introdus mai puţine date decît 
variabile în instrucțiunea INPUT, sistemul va tipări din nou () şi introducerea 
datelor va continua pînă ce toate variabilele au primit valori. 

Dacă se introduc mai multe constante decît sînt necesare, constantele 
suplimentare se ignoră. În cazul în care se dorește oprirea execuţiei progra- 
mului, în timp ce sistemul așteaptă date de la consolă, se acţionează tasta 
CTRL și C simultan, iar sistemul va tipări READY. 

Exemplu : 

50 INPUT I1,A,B, V(2). 

La execuția instrucţiunii :y sistemul va tipări (:) la consolă și va aștepta 
introducerea a patru constante. Dacă se introduc doar trei numere, sistemul 
va tipări iarăşi (:) indicînd că aşteaptă date. Astfel, la consolă va apărea: 

: 4, 17.5, 9E10 

: 10.3 

Dacă este comisă o-eroare în timpul introducerii de date, sistemul va 
tipări un mesaj de eroare, iar ultima linie de date va trebui reintrodusă. Astfel, 
dacă în exemplul de mai sus s-ar fi introdus: 

: 4, 17M5, 9E10, 10.3 
sistemul ar fi răspuns: 

INPUT ERROR, TRY AGAIN 

: (aşteaptă noi date) 

Introducerea datelor se repet: corect astfel: 

: 4417.5, 9E10,810.3 

În cazul folosirii variabilelor şir, trebuie remarcat că, din linia cu con- 


siante şir corespunzătoare, introdusă de la consolă, sînt eliminate spaţiile 
neincluse între ghilimele. 


Exemple : 
10 INPUT A$, B, C$(2T05)) | 
3 "SINT GATA'', 73, ABCD 


Variabila A $ a primit valoarea "SINT GATA”, variabila B valoarea 73 
iar variabila C$ valoarea ABCD, pentru elementele 2 la 5. Textul SINT GATA 
a fost introdus între ghilimele, pentru a se păstra spaţiul dintre cuvinte 


Instrucţiunile READ şi DATA. Instrucţiunea READ are același efect cu 
INPUT, cu deosebirea că datele nu sînt introduse de la consolă, ci sînt citite 
dintr-un bloc de date, definit cu instrucțiunea DATA. 
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Formatul instrucţiunilor : 

nr. linie READ listă de variabile 

nr. linie DATA listă de constante. 

Pentru a putea ţine evidenţa constantelor citite in instrucţiunile DATA, 
interpretorul folosește un indicațor la constanta ce urmează a fi citită din 
blocul de constante, care apar în instrucțiunile DATA, din program. În cazul 
în care nu se pot inițializa toate variabilele din instrucțiunea READ, din 
cauza epuizării constantelor din instrucţiunile DATA, sistemul va da un mesaj 
de eroare. 

O instrucţiune DATA nu este asociată unei instrucțiuni READ, ci toate 
instrucțiunile DATA sînt tratate ca şi cum ar forma un bloc de date. 

"nstrucţiunea DATA poate apărea oriunde, în cadrul programului. 


Exemplu : 
150 READ X, Y,Z 
200 READ A 
250 FOR I=1 TO 10 
255 READ B(1) 
29 NERT 1 


490 DATA 4.2, 7.5, 25, —1, „1, -01, 001, —ud 
450 DATA 2., 1, 7, 9, 1E7, îs 


Primele trei constante sînt citite pentru X, Y şi Z. Pi 5) 
Valoarea —1 va fi atribuită lui A. Următoarele zece valori de la .1 la 3.5 
vor fi atribuite elementelor vectorului B. gi . Di se 
Instrueţiunea RESTORE 
Format : 


nr. linie RESTORE 


Este folosită pentru a inițializa indicatorul din blecul DATA, pe prima 
instrucțiune DATA din program. Astfel, se permite reutilizarea datelor. 


Exemplu : 
20) FOR K=0 TO 10 
30 READ B(K) 
40 NEXT K 
5) RESTORE 
60 READ X, Y, Z 
70 PMR IS te 


200 READ 
500 DATA 1,2, 3, 4,5,6,7,8, 9,10 
Elementele vectorului B vor primi valorile 1,2,..., 10; variabilele 
X, Y, Z vor primi valorile 1, 2, 3, iar instrucțiunea 20DREAD va citi începînd 
cu 1. 
În instrucțiunea READ pot fi folosite și variabile şir. 


Exemplu : 
10 READ AŞ, B, C$ 


100 DATA “ABC 123”, 17.5, AB123 
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Variabila A$ primeşte valoarea “ABC 123“. iar C$ valoarea AB 123. 
Instrucţiunea PRINT 
Formatul instrucţiunii este : 


nr. linie PRINT listă 
sau 
nr. linie PRINT 


lista poate conţine: constante, variabile simple sau indexate, expresii sau 
şiruri. 

Instrucţiunea PRINT este folosită pentru tipărirea valorilor curente ale 
expresiilor care apar în listă. În cazul cînd lista lipsește se va trece la începutul 
liniei următoare pe display. 

Numerele reale sînt tipărite în următorul format : 

— dacă numărul este negativ se tipăreşte semnul — 

— dacă valoarea absolută a numărului N este cuprinsă între: 


0.1 N sg 9999999, 


atunci numărul este tipărit fie ca număr întreg (dacă valoarea sa este 
întreagă), fie ca număr zecimal, folosindu-se punctul ca separator al 
părții întregi de partea zecimală. 

— dacă valoarea numărului nu se încadrează în intervalul de mai sus, 
atunci numărul este tipărit în notație ştiinţifică (exponențială) astiel ; 


[—]X:XXXXX E [—] YY 


unde: | | — indică partea opțională a reprezentării, dacă numărul este 
negativ se tipărește — ; 
X — reprezintă o cifră a numărului ; 
E  — indică reprezentarea exponențială ; 
Y — este cifră a exponentului. 

Valoarea numărului va fi: [—] X.XXXXX x 101—1YY 

În funcţie de separatorul folosit între elementele din listă, se va face 
spaţierea între valorile tipărite. 

Ca separatori pot fi folosiți „,“ sau „;“ 

Linia pe care se tipăreşte este împărţită în zone. Lungimea unei zone 
este de 15 caractere. Pentru un display cu lungimea linici de 30 caractere vor 
exista două zone începind cu poziţiile 0 şi 15. 

Exemple : 
10 LET X=5 
50 PRINT X, (X*2)46, X*2 


60 PRINT X 4 4, X—25, X—100 
30 END 
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la display va apărea : 


0... [TOP 30 — poziţii 
5 1.90000E 06 
19 625 

—20 —95 


Cind valoarea de tipărit depăşeşte lungimea unei zone, elementul următor 
este tipărit la începutul primei zone libere. 


10 LET X=25 

20 PRINT “SOR (X)=”, SQR (X) 

30 END 
Se va tipări: 
p... 15... 30 «— poziţii 
SQOR(A)= 5 


Folosirea ca separator a lui „;“ conduce ia tipărirea fără salt la urmă- 
toarea zonă. 

Dacă lista din instrucțiunea PRINT nu se termină cu „, “ sau „; “atunci, 
la sfirșitul execuţiei instrucţiunii (după tipărirea tuturor elementelor din listă), 
se va trece la începutul liniei următoare. Terminarea listei din instrucțiunea 
PRINT, cu unul din separatorii „, “ sau „;“ este utilă în cazul tipăririi mai 
multor valori într-un ciclu, peniru a se face economie de spaţiu de afișare. 


Exemplu : Programul 


10 FOR I=1 TO 19 
20 PRINT 1 

30 NEXT I 

40 END 


Va tipări fiecare valoare la început de linie 
1 
2 
3 
19 
Dacă se folosește separatorul „ ,“ 


10 FOR I=1 TO 19 
20 PRINT |, 

30 NEXT 1 

40 END 


atunci se vor tipări cîte două valori pe linie. Pentru a se putea tipări oriunde pe 
suprafaţa display-ului formată din 32 de linii a 30 de caractere (coloane) fie- 
care, se poate folosi în instrucțiunea PRINT funcţia : AT(linie, coloană). 


Exemplu : 
10 LET Aş="A=” 
20 PRINT AT (16,15); A$; 190 


va tipări la mijlocul ecranului textul A=100. 
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Funcţia AT este utilă în afişarea de valori sau texte, pe un desen realizat 
cu instrucțiunile grafice, sau pentru tipărirea într-o anumită zonă a ecranului, 
indiferent de poziţia curentă, în care urma să se tipărească. Poziţia (1, 1) este 
în colțul din stînga sus al ecranului, iar (32, 30) în dreapta, jos. 


9.4.8. Exerciţii 


1. Instrucţiunea INPUT este deseori precedată de instrucțiunea PRINT, de exemplu ş 
10 PRINT “INTRODUCETI DATELE” 
20.PRINI /X="; 
30 INPUT X 


Valoarea lui N va fi afișată pe același rind cu mesajul X=—, deoarece instrucțiunea 
29 PRINT se termină cu ;. 
Similar, pentru introducerea de texte: 
10 PRINT “DORITI O NOUĂ EXECUTIE”; 
20 INPUT R$ 


răspunsul introdus fiind DA sau NU, în urma căruia în program se va executa o decizie. 
2. Executaţi următorul program : 


10 INPUT AŞ 
20 PRINT AŞ; ="; VAL (AŞ) 
30 GOTO10 


Introduceţi instrucțiuni PRINT suplimentare astfel încît calculatorul să precizeze ce 
intenționează să facă și să ceară politicos datele de intrare. De remarcat că expresia introdusă 
spre evaluare (în A$), poate conţine orice fel de prelucrări numerice inclusiv variabile, a căror 
valoare trebuie introdusă în prealabil. De asemenea, şirul A$ trebuie să fie alocat într-o instruc- 
țiune DIM, iar în instrucţiunea 10 să se utilizeze notația (TO) pentru a împiedica realocarea 


5 DIM AS (40) 
16 INPUT A$ (TO) 


3. Cum se poate opri execuţia programului din exerciţiul precedent? (CTRL/C în 
INPUT sau CTRL între instrucțiuni, sau + + - RESET). Dacă execuţia s-a oprit între instruc- 
ţiuni, cum se poate relua fără alterarea variabilelor ? 


4, Scrieţi un program care calculează suma curentă a numerelor introduse, 

Indicaţie : Se utilizează variabilele T pentru păstrarea totalului curent și V pentru numă- 
rul introdus T se iniţializează cu valoarea (. Se citeşte un număr în V, se adună la T și se tipă- 
reşte T. Se repetă cu introducerea altui număr. 


5. Pentru a simula mișcarea unui simbol grafic* într-o anumită direcţie se va afișa și se 
va șterge simbolul respectiv, progresînd cu cite un pas în direcţia respectivă. Se va utiliza în acest 
scop instrucțiunea PRINT cu funcția AT. 

10 LET X=1 

20 PRINT AT(5,X); “C“; 
30. PRINT AT(5,X)$ *.,“s 
40 LET X=X+1 

50 GOTO 20 


Programul de mai sus are dezavantajul că, la terminarea liniei cînd X. devine > 30, se con- 
tinnă incrementarea sa. Pentru a evita acest lucru se introduce instrucțiunea : 


45 IF X>30 THEN 10 


* Caracterul gralic este notat cu „C“ 
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care, reîncepe execuţia de la linia 10 dacă X a devenit mai mare decît 30. Un alt dezavantaj 
este timpul scurt în care simbolul apare pe ecran, datorită intervalului de timp scurt între afi- 
șare și ștergere. Pentru a mări această durată se introduce între liniile 20 şi 30 un ciclu FOR fictiv : 


22 FOR F=1 TO 19 
25 NEXT F 


Acest lucru însă, are dezavantajul că micşorează viteza globală de execuţie a programului. 
Se recomandă următoarea soluţie : 


10 LET X=1 40 PRINT AT(5,P); ” ";AT(,X); "C”; 
20 LET P=K 50 IF X=29 THEN 10 
30 LET X=X+1 60 GOTO 20 


Programul foloseşte două variabile. X păstrează poziţia curentă a caracterului, iar P pozi- 
ţia anterioară, care va fi ștearsă. Simbolul apărind mereu pe ecran, crește impresia de viteză. 
De remarcat că, în aceeași instrucțiune PRINT poate apare de două ori specificația AT pentru 
poziţionare. O altă soluţie constă în scrierea caracterului precedat de spaţiu, PRINT AT (5, X) ; 
"(astfel : 


10 X=1 40 IF X>29 THEN 10 
20 PRINT AT(5,X); "0"; 50 GO TO 29 
30 X=X+1 
O îmbunătăţire adusă programului se referă la utilizarea instrucţiunii FOR pentru ciclare 
10 FOR X=1 TO 29 30 NEXT X 


20 PRINT AT(5,X); “0”; 40 GOTO 10 


Pentru mişcarea unui pătrăţel (1/4 dintr-un caracter), pot fi utilizate similar instrucţiu- 
nile PLOT şi UNPLOT. În programele de mai sus, în poziţia 30 a liniei, va rămîne caracterul 
fără a fi şters. Pentru a-l șterge, se introduce (în ultimul exemplu) : 35 PRINT AT (5,30); ” ”; 


ilCum puteţi descrie mișcarea simultană a mai multor caractere (figuri) ? 


6. Funcţia STR$ este foarte utilă, dar deseori neglijată. Așa cum s-a arătat, ea este uti- 
lizată pentru conversia unei valori numerice într-un şir de caractere, identic cu cel obţinut prin 
tipărirea sa cu PRINT. Încercaţi următorul program : 

10 PRINT 2, STRS (2) 
20 PRINT 1/3, STR$ (1/3) 
30 PRINT 9E15, STR$ (9E15) 


Se observă că, valorile afișate sînt identice. Utilizarea principală a funcţiei STR$ este în 
formatarea rezultatelor afișate. Se vor indica citeva exemple. 
a) Aşezarea punctului zecimal în poziţia dorită. Executaţi programul : 


10 LET A=RND (0)*10000 30 LET A=A*10 
20 PRINT A 40 GO TO 29 
Se obţine următoarea secvenţă ! 
().152587 1525.87 
1.52587 15258.7 
15.2587 152587 
152.587 


Valorile sînt mai ușor de comparat dacă le putem alinia pe verticală la nivelul punctului 
zecimal, astfel : 
(.152587 
1.52587 
15.2587 
152.587 
1525.87 
15258.7 
152587 


Instrucţiunile limbajului BASIC 69 


Pentru aceasta se modifică programul de mai sus folosind funcţia STR$. 


5 1=6 30 A=A*10 
10 A=RND (0)*10000 35 I=I+1 
20 N=LEN (STR$ (INT (A))) 40 GO TO 20 


22 PRINT AT (1,15—N); A 


Variabila 1 este utilizată pentru a indica linia în care se tipărește cu funcţia AT în instruc- 
țiunea 22 PRINTI. 

Expresia LEN (STR$ (INT (A))) calculează lungimea părţii întregi a numărului. Astfel, 
dacă A=15.2587, atunci STR$ (INT (A))="15”, şir cu lungimea 2, deci tipărirea se va începe 
din coloana 15-2=13, încit, toate numerele vor avea punctul în coloana 15 (exceptînd cele în 
notație științifică). Execuţia programului va fi oprită de la tastatură, acționind CTRL. 

b) Tipărirea cu un număr dorit de cifre la partea zecimală. Se vor tipări, de exemplu, 
numerele cu trei cifre după punctul zecimal. 


5 1=6 35 IFM <> N THEN 45 

10 DIM B$ (15) 40 BS (N+1)=%. 

15 A=RND (0)*100 45 PRINT AT (|, 15-C); B$ (TON-+4) 
20 M=LEN (STRS (A)) 50 A=A*10 

25 N=LEN (STRS (INT (A))) 55 I=I+1 

30 BS (TO)=STR$ (A)+ "0000 60 GO TO 20 


Variabila 1 este utilizată în același scop ca la exemplul precedent (indică numărul liniei), 
M conţine lungimea totală a numărului, iar N numărul de cifre al părţii întregi (ca şi în exemplul 
precedent). În variabila B$ se „asamblează“ numărul urmat de eventuale zerouri. Dacă numărui 
este întreg (test realizat în instrucţiunea 35 IF), se adaugă și punctul zecimal (în locul unuia din 
cele patru zerouri), 


c) Economisirea spaţiului de memorie și definirea de funcţii. Deseori este utilă manipu- 
larea numerelor tratate ca șiruri de caractere, în loc de a le prelucra numeric, iar în final, evalua- 
rea lor cu funcţia VAL, Astfel, se pot stoca numerele sub formă de şiruri, cu ajutorul funcției 
STRŞ: 


LET A$=STRŞ (1024) 


apoi, se revine la valoarea numerică cu VAL : PRINT VAL (AŞ). 


În acest caz însă, memorarea lui 1024 ca șir în variabila AŞ, consumă mai multă memorie 
decît păstrarea lui ca număr. Dacă se aplică funcţia VAL unei expresii ca “ATN (X)*4“, varia- 
bila X fiind definită în prealabil, evaluarea va fi corectă, deci, o expresie care poate conţine varia- 
bile, se definește o singură dată în program și poate fi evaluată pentru diverse valori ale varia- 
bilelor, cu ajutorul lui VAL (similar cu instrucțiunea DEFFN din unele versiuni BASIC). De 
exemplu, pentru generarea unui număr aleator între 1 și 10 se va defini la începutul programului 
şirul : 

A$= "INT (AND (0)*10+1)” 
și de fiecare dată cind se dorește un număr, se va obţine prin utilizarea funcţiei VAL (AŞ), 
N= VAL (AŞ). 


9.4.9. Instrucţiuni de control (transfer necondiţionat, condiționat şi 

ciclare) 

În mod normal, execuţia instrucțiunilor unui program este secvenţială. 
Totuşi este necesar uneori repetarea de mai multe ori a execuţiei unor instruc- 
ţiuni (fără să fie scrise repetat) sau, în funcţie de valoarea unor date, să nu se 
execute instrucțiunea următoare, ci să se treacă la execuţia alteia, dintr-o 
altă zonă a programului. 

Instrucţiunile care modifică execuţia secvenţială a programului sînt 
instrucţiunile de control. În BASIC ele sînt următoarele : 

— instrucțiunea GOTO, care realizează transferul necondiționat (inde- 
pendent de date); 
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— instrucțiunile ON şi IF pentru transfer condiționat ; 
— instrucțiunea de ciclare FOR. 


Instrucţiuni de transfer necondiţionat. Pentru transferul necondiţionat 
se foloseşte instrucțiunea GOTO. 

Format : nr. linie GOTO n 

Execuţia instrucţiunii constă în transferul controlului la instrucțiunea 
cu numărul de linie n. Saltul se poate face la orice instrucțiune din program. 


Exemplu 
18. Ei A=SQR (XX 12+Y +2) 


i] Goro 199 
CĂ Goro 19 
100 PRINT A 


Instrucţiuni de transfer condiționat. Pentru realizarea transferului con- 
diționat sînt disponibile două instrucţiuni : inetrucţiunea IE şi instrucțiunea ON. 
E origabel instrucţiunii IF este: 
. linie IF expl relație exp2 THEN nl 
ati! ; — expl şi exp2 sînt expresii numerice s2u şiruri 
— nl este un număr de linie, 
— relație poate fi: 
egalitate 
mai mare 
mai mic 
mai mare sau egal >= sau => 
mai mic sau egal  <= sau =< 
diferit <> sau >< 
Dacă relaţia dintre expl şi exp2 este adevărată se va trece la instruc- 
țiunea cu numărul de linie nl, dacă nu, execuţia va continua cu instrucţiunea 
care urmează după IF. 


AVI 


Exemplu : 
100 IF X+Y=SQR (X) THEN 15 

În cazul comparaţiei şirurilor de caractere, ambele expresii trebuie să fie de 
tip şir. Şirurile sînt egale dacă au aceeaşi lungime şi conțin aceleași caractere. 
Exempiu ? 

* 10 LET A$="ABG” 

20 IF A$="ABC” THEN 109 

După execuția flinstrucțiunii 20 se va sări la execuția instrucţiunii 109. 

Un şir se consideră mai mic decit altul, dacă are lungimea mai mică sau, 
în cazul lungimilor egale, dacă în ordonarea lexicografică, primul şir precede 
pe al doilea (cifrele şi semnele speciale preced literele —conform cu codurile 


ASCII). 
Exemplu : ; ABC“ este mai mic decit ”"BCD*. 
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Următoarea secvență de program, testează dacă de la consolă s-a acționat 
caracterul ”A”, dacă da se continuă execuţia, dacă nu, tipăreşte caracterul 
citit (sau şirul nul, în cazul cînd nu s-a acționat nici o tastă) şi opreşte execuţia 3 

10 LET A$=INKEY$ 
20) IF A$="A”THEN 59 
30 PRINT AŞ 

40 STOP 

po... 


Programul următor scrie la mijlocul ecranului textul ABC și îl şterge 
ia acţionarea alternativă a unor taste: 
10 IF INKEY$=” “THEN 19 
20 PRINT AT (16, 15) “"ABG” 
30 IF INKEY$="” ” THEN 39 


40 PRINT AT (16,15)%  “* 
50 GOTO 10 


Formatul instrucţiunii ON este: 


nr. linie ON expresie GOTO listă 
sau 
nr. linie ON expresie GOSUB listă 


unde listă reprezintă un şir de numere de linie. 
Fie N partea întreagă a valorii expresiei speci ficate în instrucțiunea ON, 
Execuţia instrucţiunii constă în saltul la instrucțiunea cu al N-lea număr de 


linie din listă. În cazul lui ON-GOSUB, fiecare număr de linie, din listă reprezintă 
startul unei subrutine din program. Dacă N nu se încadrează între : 


ICN=G ;vmmărul de elemente din listă, 
atunci execuţi ccutinuă cu instrucțiunea care urmează după ON. 
Exemple : 
10 ON M-5 GOTO 109, 500, 90, 75, 550 


M-5 trebuie să aibă o valoare între 1 și 5 altfel, instrucțiunea nu are 
nici un efect. 


20 ON X GOSUB 1090, 2000, 3009 


În funcție de valoarea lui X se execută una din cele trei subrutine care 
încep la liniile 1000, 2009 sau 3000. 


Instrucţiuni de cielare. Instrucţiunile de ciclare sint folosite pentru exe- 
cuția repetată a unor instrucţiuni din program (numite cicluri sau bucle în 
program). 

Pentru acest lucru se puteau utiliza instrucțiunile de transfer. Introdu- 
cerea unor instrucțiuni speciale de ciclare s-a făcut în scopul simplificării 
muncii programatorului. 


În BASIC, pentru realizarea ciclurilor, se utilizează instrucțiunile FOR 
şi NEXT. 
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Formatul instrucțiunilor : 


nr. linie FOR variabilă=expl TO exp2 STEP exp3 
(instrucţiuni ce formează bucla) 
nr. linie NEXT variabilă 
unde:  — variabilă reprezintă o variabilă simplă care este folosită pentru 
controlul numărului de repetări ale buclei. Bucla constă din instruc- 
țiunile care se găsesc între instrucțiunea FOR și instrucţiunea 
NEXT, cu aceeași variabilă. 
— expl, exp2 şi exp3 sînt expresii. 
Semnificaţia acestor expresii este următoarea : 
expl — este valoarea inițială care se atribuie variabilei din instrucțiunea FOR, 


exp2 — este valoarea finală a variabilei, 
exp3 — este incrementul (pasul) care se adună la valoarea variabilei FOR, de 


Line ct ă 


fiecare dată, cînd se execută instrucțiunile din buclă. 
Observaţie : 

Este posibil ca exp3 să nu se specifice, instrucțiunea FOR avînd forma : 

nr. linie FOR variabilă = expl TO exp2 

În acest caz valoarea pasului (exp3) se consideră 1. Bucla se execută 
atita timp cît valoarea variabilei FOR este mai mică sau egală cu exp2. 

Execuţia instrucţiunii NEXT constă în adunarea valorii pasului (exp3) 
la valoarea variabilei FOR și testul dacă noua valoare a variabilei nu depă- 
şeşte valoarea limită (exp2). Dacă valoarea limită este depășită execuția buclei 
ia sfîrșit, următoarea instrucțiune executată fiind cea de după NEXT. 

În interiorul unei bucle FOR pot exista alte bucle cu condiţia ca buclele 
să nu se intersecteze. 


Exemplu”corect Exemplu incorect 
10 FOR X= 10 FOR X= 
50 FOR Y= 70 FOR Y= 
100 FOR Z= 120 NEXT X 
tg 300 NEXT Y 
170 NEXT Z 
300 NEXT Y 
700 NEXT X 


Sint permise maximum trei bucle FOR incluse una în alta. 


Rremplu ! 


109 FOR I=1 TO3 

120 FOR J=1 TO 20 STEP 1 
130 READ B (1. J) 

140 NEXT J 

150 NEXT 1 


Instrucţiunea 130 READ se va executa de 20x3=60 de ori. 
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9.4.10. Exerciţii 
1. Programul următor afişează setul complet de caractere. 


10 FOR N=0 TO 127 30 NEXT N 
20 PRINT CHR$ (N) 40 STOP 


Să se modifice programul, utilizînd funcţia AT în PRINT și afişind numai cifre, pentru 
a se obţine un ceas electronic. (Temporizarea se poate realiza cu un ciclu FOR). 


+ 2. Pentru calculul sumei a N numere reale se poate utiliza programul : 


10 PRINT "N=”; 35 S=S+A 

15 INPUT N 40 C=C+1 

20 C=1 50 IF C<=N THEN 30 
25 S=9 60 PRINT S 

30 INPUT A 


Să se descrie același algoritm de calcul folosind instrucţiunile de ciclare FOR/NEXT cu 
variabila contor C. 


3. Următorul program afișează numărul cu valoarea maximă dintr-un șir de 5 numere 
introduse : 


10 INPUT M 50 M=A 
20 FOR 1=2 T0 5 60 NEXT 1 
30 INPUT A 70 PRINT “MAXIMUL="“; M 


40 IF M>=A THEN 60 


Programul poate fi utilizat pentru aflarea maximului dintr-un șir de 10) sau 100 de valori 
dacă modificăm limita 5 din instrucţiunea 20FOR. Ce trebuie modificat în program pentru a 
calcula minimul. 


4, Să se modifice programul de calcul al sumei (din exerciţiul 2) astfel incit să calculeze 
produsul numerelor nenule din cele N numere (pentru simplificare se va folosi ciclul FOR/NEXT). 


5, Pentru calculul factorialului dintr-un număr natural dat poate fi utilizat programul : 


10 PRINT “INTRODUCETI N="; 40 P=P*l 
20 INPUT N 50 NEXT 1 
25 P=1 60 PRINT "NI=";P 


30 FOR I=2T0 N 
Să se găsească o altă soluţie pentru această problemă. 
6, Executaţi programul : 


10 FOR N=10 TO 1 STEP-1] 
20 PRINT N 
30 NEXT N 


Transiormaţi acest program în unul ce nu conţine ciclul FOR-NEXT (procedind invers 
exerciţial 2). 


7. Fie dat un vector A de zece elemente. Programul de mai jos, erdonează crescător ele- 
mentele acestui veotor, deci, în final va fi satistăcută relaţia A(1)sA(2)s :-:-sA(10). 


19 FOR 1=1 TO 10 
15 READ A (1) 

20 NEXT 1 

25 FOR I=1 TO 9 

30 FOR J=1 TO 19—1 
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40 IF A U)<=A +1) THEN 70 60 A I+1)=T 
59 T=A () 70 NEXT J 
55 A U)=A +1) 80 NEXT 1 
85 REM “AFISAREA REZULTATU- 


FII 
99 FOR I=1 TO 19 
100 PRINT A (1). 
110 NEXT 1 
120 END 


De remarcat că, aceeași variabilă I poate apare în mai multe cicluri FOR-NEXT, fără 
conflict, dacă ciclurile respective nu se intersectează (nu au instrucțiuni comune). De ce a fost 
necesară utilizarea variabilei T în instrucțiunile 50 și 60?. 


Cum poate fi accelerat acest algoritm ? Să se indice un alt algoritm (program) pentru 
această problemă ? Ciclurile (10—20) pentru citire și (90—110) pentru tipărire pot îi inlocuite 
prin câte o singură instrucțiune matriceală (vezi capitolul : instrucțiuni de calcul cu matriei). 
Să se modifice programul astfel încît să ordoneze un vector A cu N elemente, 2sNs234. 


8. Similar cu exerciţiul 7, se prezintă un program ce ordonează crescător (sortează alfa- 
betic) o listă de nume, care sînt depuse într-o matrice de șiruri de caractere. Programul se deose- 
beşte de cel precedent prin faptul că utilizează instrucțiuni IF pentru ciclare, iar ordonarea se 
face descrescător, însă, afișarea făcindu-se începînd cu ultimul șir către primul (maxim), rezul- 
tatele vor fi afișate în ordine alfabetică (crescătoare). 


10 REM “SORTARE ALFABETICĂ” 120 IF W$(B)>WS(Z) THEN 159 


20 DIM W$ (5, 10) 130 Z=2Z+1 

30 LET B=9 149 GOTO 199 

40 LET G=5 150 Q5=Ws (Z)] 

50 FOR A=1 TO 5 160 WS (Z)=Ws (B) 

60 INPUT WS (A) 170 WS (B)=Q$ 

70 PRINT W$ (A) 180 GOTO 130 

39 NEXT A 190 PRINT W$ (G) 

85; PRINT 200 G=G—1 

99 LET Z=1 210 IF G>0 THEN 994 
190 B=7+1 220 END 


110 IF B>G THEN 190 


Programul folosește tabloul W$ (5, 10) pentru păstrarea a 5 şiruri de maximum 16 carae- 
tere fiecare. Pentru extinderea la un număr mai mare de șiruri, trebuie modificate instrucțiunile i 
20 DIM, 40 LET și 50 FOR, scriindu-se în locul cifrei 5 un număr dorit (maximum 254). 
Se observă că, afișarea rezultatelor se face rînd pe rînd, imediat după obţinerea, pe ultima pozi- 
ție în W$, a șirului mai mic. Cum poate fi modificat programul pentru a afișa rezultatul, din 
W$ (5, 10), după ordonarea sa integrală (ca în exerciţiul precedent) ?. 


9.4.11. Utifizarea subrutinelor. Cînd este necesară efectuarea de mai multe 
ori Într-un program a aceloraşi calcule (instrucțiuni) pentru date eventual dife- 
rite, se poate folosi conceptul de subrutină. Utilizarea subrutinelor conduce 
la o diminuare a dimensiunii programului, deoarece prelucrările se descriu o 
singură Jdată (în cadrul subrutinei) și pot fi executate de cite ori este nevoie, 
prin apelarea subrutinei, eventual cu alte date. Folosirea funcţiilor (SIN, COS, 
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LOG, GET, PUT ete.) în alcătuirea expresiilor, constituie un exemplu în acest 
sens, deoarece funcţiile sint definite o singură dată, în interpretor, și sînt 
apelate cu diferite argumente de către programator. 

Pentru definirea unor subrutine mai puternice (ce descriu prelucrări 
complexe asupra datelor), în limbajul BASIC sînt disponibile instrucţiunile 
GOSUB, RETURN şi CALL care vor fi descrise în continuare. 


Instrucţiunile GOSUB şi RETURN. Aceste instrucțiuni permit utilizarea 
subrutinelor în BASIC. 


Atunci cînd o succesiune dată de instrucțiuni, apare de mai multe ori 
într-un program, în locuri diferite, ea poate îi scrisă ca subrutină, 


GOSUB 
Format : 
nr. linie GOSUB nl 

Execuția instrucţiunii constă în transterul controlului la instrucţiunea 
cu numărul nl. 

Instrucţiunea nl poate fi oricare dintre instrucţiunile ce alcătuiesc o 
subrutină (în general prima). 

RETURN 


Format : 
nr. linie RETURN 


Execuţia instrucţiunii constă în transferul controlului la instrucțiunea 
ce urmează după instrucțiunea GOSUB, care a apelat subrutina. 


] xemplu ; 
100 LET X=5 500 Y=—3*X 
110 GOSUB 509 510 LET Z=1.2*EXP (Y) 
120 X=7 520 LET Y=SQR(2+2) 
139 GOSUB 500 530 IF Y<100 THEN 550 
140 X=1 540 RETURN 
159 GOSUB 500 550 PRINT X, Y 
160 STOP 560 RETURN 


Variabilele în BASIC sînt globale, deci cele utilizate într-o subrutină 
pot fi apelate şi în altă parte a programului. 


Apelarea subrutinelor serise în limbaj maşină. Pentru a apela, dintr-un 


program scris în limbaj BASIC, subrutine scrise în limbaj mașină, se utilizează 
instrucțiunea CALL 


Formatul instrucţiunii este următorul : 
nr. linie CALI. (M, P1, P2, ..., PN) 


unde: 
— M este numărul subrutinei (de la $ la 254) 


— P1,... PN sînt parametrii (constante, variabile sau expresii). 
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Legătura dintre numărul subrutinei şi 
adresa din memorie, unde se află subrutina, 
se stabilește prin intermediul unei tabele 

Memorie care se află la o adresă prestabilită 


Interpretor EROI (fig. 9.1, harta ocupării memoriei). O 
BASIC intrare în tabelă conţine trei octeți. În primul 
octet se află numărul rutinei iar în următorii 

doi adresa. Siîrşitul tabelei este detectat prin 
soti întîlnirea unei intrări cu numărul 255. În 
Yeriabile Monitor cazul cind nu se folosesc subrutine în limbaj 
Variabila Memorie mașină, apelate dintr-un program BASIC, 
BASIC PAV tabela se reduce la un singur octet cu valoa- 


rea 255. În acest caz, iniţializarea tabelei 
(octetului) se face automat, de către inter- 
pretorul BASIC, la lansarea sa în execuţie, 
prin comenzile B sau G0800 (vezi paragra- 
ful 9.3.1). 
"Transferul parametrilor se asigură prin 
Fig. 9.1. Harta ocupării me- referinţă. Adresele parametrilor (pe doi octeți) 
sorta. sînt depuse în stivă, indicată de registrul SP, 
în ordinea: adresă de întoarcere în programul BASIC, adresa PI, adresa 
P2, ...„ "adresa IPN: 

Deci subrutinele în limbaj maşină, în cazul în care folosesc parametrii 
(primesc şi/sau returnează), vor trebui să facă uz de instrucţiuni POP, pentru 
obținerea adreselor parametrilor şi să se termine cu instrucțiunea RET. 

Observaţii : 

1. Subrutinele în limbaj mașină trebuie să descarce din stivă adresele 
tuturor parametrilor înainte de terminare (RET), pentru ca adresa luată din 
stivă, la execuţia instrucţiunii RET, să fie cea depusă de interpretor. Inter- 
pretorul nu face nici un control în acest sens. 

2. Parametrii au valori reale, reprezentate pe patru octeți în formatul 
cu virgulă mobilă. Îa subrutina scrisă în limbaj mașină, trebuie să se țină 
seama de această reprezentare, pentru ca prelucrarea să fie corectă. 

3. În cazul cînd parametrii sînt nume de tablou (vector sau/matrice) ele- 
mentele tabloului sînt depuse în memorie liniar, pe coloane (în cazul matricilor), 
fiecare element ocupînd patru octeți. La subrutină se transmite adresa primului 
element de pe prima coloană. Știind acest lucru, se poate avea acces în cadrul 
subrutinei la oricare element al tabloului. 

4. Parametrii variabile simple, nedefinite în prealabil (care vor primi 
valori rezultate din subrutină), nu trebuie să fie intercalaţi cu parametrii 
expresii. 

Exemplu : 

În continuare se arată cum trebuie actualizat indicatorul la memoria 
disponibilă (1IMD)* şi definită tabela de legături, pentru utilizarea a trei sub- 
rutine cu numerele 1,2 şi 4. 


* IMD este iniţializat cu valoarea 6800H, deci indiferent dacă se utilizează subrutine, 
se rezervă o zonă de 1Ko (400H) pentru subrutine. 
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ORG 635EH adresa lui IMD * 


IMD ; DW MDISP ; actualizare IMD 

TSUB : DB 1 ; intrare pentru 
DW SUB1 ; subrutina nr. 1 
DB 2 
DW SUB2 ; adresa subrutinei 2 
DB 4 ; intrare pentru 
DW SUB3 ; subrutina nr. 4 
DB 255 ; sfîrşit tabelă 

SUB1 : . ; cod pentru 

; subrutina nr. 1 

RET 

SUB2 : . ; cod pentru 
. ; subrutina nr. 2 
RET 

SUB3 : . ; cod pentru 
. ; subrutina nr. 4 
RET 

MDISP EQU ş ; început memorie 
END ; disponibilă 


Codul rezultat în urma asamblării programului de mai sus, scris în limbaj 
de asamblare, va trebui să fie introdus la adresa specificată, cu ajutorul comen- 
zilor MONITOR, înainte de lansarea în execuţie a interpretorului BASIC. 
După introducerea subrutinelor în limbaj maşină interpretorul BASIC se lan- 
sează în execuție cu comanda G0815 (pentru a nu se face iniţializarea impli- 
cită a lui IMD, ca în cazul absenței subrutinelor). 


9.4.12. Exereiţii 


1. Unele aplicaţii necesită accesul la memoria calculatorului pentru scrierea sau citirea 
valorii unui octet de la o anumită adresă. După cum se știe unitatea de memorie adresabilă este 
octetul, iar procesorul poate adresa 65536 octeți (64 Ko). Pentru realizarea acestor funcţii, unele 
versuri ale limbajului BASIC conţin instrucţiuni speciale, de exemplu : PEEK A — funcţie a 
cărei valoare este conţinutul octetului de la adresa A, cu psAs65535 ; iar POKE A, V este o 
instrucțiune ce înscrie în octetul de la adresa A valoarea V, cu 0sVs255. Se vor simula aceste 
două instrucţiuni utilizînd două subrutine în limbaj de asamblare apelate cu CALL din BASIC. 
Astfel, pentru PEEK A, se definește subrutina numărul 1, cu parametrii A și B; A va conține 
adresa iar în B se va depune valoarea octetului de la adresa A. Pentru POKE A, V se definește 
a doua subrutină cu parametrii A și V care va înscrie la adresa A valoarea V (0sV<255). 

Subrutinele se vor apela, dintr-un program scris în BASIC, prin CALL (1, A, B) pentru 
PEEK A și CALL (2, A, V) pentru POKE A, V. 

Subrutinele în limbaj de asamblare sînt precedate de tabela de legătură : 


ORG 635EH ; adresa IMD 
IMD : DW SFSUB ; actualizare IMD 
DB 1 ; tabela de legătură 
DW PEEK ; adresa subrutinei PEEK 
DB 2 ; intrare pentru a 
DW POKE ; 2-a subrutină 
DB 255 ; sfirșitul tabelei 
PEEK : POP B ; în reg. B, C adresa celui 


; de-al 2-lea parametru 


* În cazul cind subrutinele nu depășesc 1Ko, se poate lăsa valoarea implicită pentru 
IMD (6800H), începindu-se cu ORG 6409H și definirea tabelei TSUB 
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POP D ; în D, E adresa variabilei 
; A (primul parametru) 
PUSH B ; salvare reg. B, C 
CALL ADRDE  ; în reg. D, E adresa de la care citim 
POP B ; în reg, B, C adresa la care depunem 


; valoarea citită 
7 valoarea va trebui memorată în formatul cu virgulă mobilă 


LDAX D ; în reg. A octetul citit 
MVI L, 8 ; normalizare 
NORM : ORA A 
JZ NULFL  ; valoarea este zero 
IM GATA 
RAL 
DCR Îi 
IMP NORM 
NULFL : MVI L, 405 ; exponentul lui zero 
GATA! STAX B ; scrierea rezultatulu: în 
INX B ; virgulă mobilă 
XRA A 
STAX B 
INX B 
STAX B 
MOV A, LL ; exponentul 
INX B 
STAX B 
RET 
POKE: ; subrutină care scrie valoarea celui de-al 
; doilea parametru la adresa dată de primul 
POP B ; în B, C adresa valorii 
LDAX B ; conversie în întreg 
ORA A 
IZ CONT 
MOV D, A ; salvare în reg. D 
INX B 
INX B 
INX B 
LDAXK B ; citire exponent 
ANI OFH 
MOV E, A 
MOV A, D 
RLC 
DCR E 
INZ $—2 
ș în reg. A sc află valoarea 0sVs255, convertită în întreg 
POP D ; adresa primului parametru 
MOV B, A ; salvare valoare 
CALL ADRDE 
MOV A,B ; depunerea valorii la 
STAX D ; adresa din reg. D, E 
RET 
ADRDE : ; subrutină ce primeşte în 


; D, E adresa unui număr în 

; virgulă mobilă și întoarce în 

; D, E valoarea sa (ca număr întreg) 

LDAX D ; în reg. A primul octet al 
ORA A ; mantisei. Este 0? 

JZ ZERO ; numărul este zero 
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MOV 
INX 
LDAX 
MOV 


[zi--- 
>» 


; în (H, L) primii 2 octeți ai 
; numărului 

INX 
INX 
LDAX 
ANI 
MOV 
LXI 

€CONV': DAD 
XCHG 
ADC 
DCR 
XCHG 
RZ 
IMP CONV 

ZERO : LXI D, 0 
RET 

SFSUB EQU $ 
END 


Codul obiect rezultat în urma asamblării subrutinelor, se va depune în memoria calcu- 
latorului (cu comanda Substitute (S) a monitorului). Apoi, se lansează în execuţie interpreto- 
ral BASIC, cu comanda G0800. În continuare, se poate introduce un program BASIC care uti- 
jizează subrutinele în limbaj mașină : 


10 PRINT "INTRODUCETI ADRESA A="; 
20 INPUT A 

25 PRINT "INTRODUCETI VALOAREA V=”; 
30 INPUT V 

40 REM “ÎN OCTETUL DE LA ADRESA A” 
45 REM ''VOM DEPUNE VALOAREA V'” 

50 CALL (, A, V) 

60 REM "PENTRU TEST VOM CITI” 

65 REM ''VALOAREA SCRISA SI O VOM AFIȘA” 
70 CALL (1, A, C) 

80 PRINT C 

99 GOTO 10 


în reg. A exponentul 

se păstrează ultimii 

5 biţi, salvare în reg. C 
D, E=0 


iză= oii, 
o» 


la 
ae 
(a 


; HL=HL+HL+CY (280) 


OIL Lp 


Programul următor realizează aceeaşi iuncţie ca și comanda Fill a moni- 
torului 


10 INPUT A1, A2, V 
20 FOR A=Al1l TO A2 
30 CALL (Q, A, V) 

40 NEXT A 

50 END 


Pentru ca programele să funcţioneze corect, trebuie ca adresele introduse 
să rorespundă zonei de memorie R/W şi să nu altereze programul BASIC (să 
nu se autodistrugă). 


În cazul utilizării subrutinelor în limbaj mașină, comanda de ștergere a 
programului : SCR, va şterge și subrutinele în limbaj mașină. Pentru[a nu intro- 
duce din nou subrutinele mașină de la tastatură, ele pot fi salvate pe casetă, cu 
comanda SAVE, imediat după ce au fost introduse și s-a intrat în BASIC. În 
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acest caz, ele vor putea fi încărcate de pe casetă cu comanda LOAD înainte de 
introducerea unui program BASIC, de la tastatură, care le utilizează. 

2. Calculatorul dispune de un difuzor care este utilizat ca „martor sonor“ 
la apăsarea unei taste. Dacă se asociază tastelor sunete corespunzătoare notelor 
muzicale, se va transforma calculatorul într-un instrument muzical. 

Dituzorul este conectat prin portul de ieşire 22H (34 zecimal) pe bitul 3. 
Pentru a obţine frecvenţa unei note dorite, se va transmite pe acest port şiruri 
de 1 și () de durate corespunzătoare. Pentru a se transmite o valoare pe un port 
de ieșire poate fi utilizată funcţia PUT (ar. port) din BASIC, de exemplu : 

10 PUT (34)=0 
20 PUT (34)=8 (1 în bitul 3) 
30 GOTO 10 - 

Pentru a obţine frecvențe mai mari, trebuie să se utilizeze o subrutină 
în limbaj de asamblare. Astfel, se va defini o subrutină în limbaj de asamblare 
care va primi ca parametrii : frecvenţa notei dorite şi durata și va genera un 
sunet corespunzător. Subrutina se va apela cu instrucțiunea CALL (1, F, D), 
după ce, în F s-a încărcat frecvenţa iar în variabila D durata. Valorile lui E şi D 
depind de modul în care s-a scris subrutina de generare și de frecvența impulsu- 
rilor de ceas ale calculatorului. 


Se va folosi următoarea subrutină în limbaj mașină : 


ORG 635EH 


DW MDISP ; adresa memoriei libere 
DB 1 ; Tabela de legătură 
DW SUNET ; adresa subrutinei 
DB 255 ; sfîrşitul tabelei 
SUNET : POP H ; adresa celui de al doilea parametru (P2) 
CALL CVINT ; conversie în întreg 
MOV E, A ; valoarea P2 (durata) o păstrăm în reg. A 
POP H ; adresa P1 (frecvenţa) 
CALL CVINT ; conversie în întreg 
MOV B, A ; salvare P1 în reg. B 
LOOP1 MOV D, B ; în D frecvenţa 
LOOP2 : MVI A, 8 ; transmite 1 pe bitul 3 
OUT 22H ; al portului 22H 
DCR D 
INZ LOOP2 
MOV D, B ; în D frecvența 
LOOP3 : NRA A ; transmite ( pe bitul 3 
OUT 22H ; al portului 22H 
DCR D 
INZ LOOP3 
DCR E ; decrementează durata 
INZ LOOP1 
RET 
CVINI : ; subrutină ce primește în reg. H, L adresa unui număr reprezentat 


; în formatul virgulă mobilă pe 4 octeți și întoarce 
; valoarea sa (întreagă) în reg. A (se presupune că valoarea 
; numărului este cuprinsă între 6 şi 255). 


MOV AM ; primul octet al numărului 
ORA A ; este 0? 

RZ 

MOV D, A ; salvarea primului octet 
INX H ; în reg. D 
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INX H 5 
INX H 
MOY AM ; exponentul 
ANI OFH ; păstrează ultimii 4 biţi 
MOV GA 
MOV AD ; conversie în întreg 
RLC ; (aliniere la dreapta) 
DCR C 
INZ ş—2 
RET 

EDISP + EQU Ş 
END 


După introducerea codului subrutinei cu comanda Substitute a Monitora- 
lui, se va lansa în execuţie interpretorul BASIC cu comanda G0800. Subrutina 
se va apela, aşa cum s-a arătat, cu instrucțiunea CALI. din BASIC (de exemplu 
CALL (1, F,D)). 


45 40 3% 34 e e) 29 27 
Fig. 9.2. Parametrii de frecvenţă ai notelor. 


Pentru a obține (genera) notele dorite, parametrul de frecvenţă F, va avea 
valorile din figura 9.2. Programul următor asociază tastelor numerice 1, 2, 3, 4 
notele Do, Re, Mi, Fa. 


5 D=50 30 F=51 
7 F=51 35 RETURN 
10 AS=INKEY$ 40 F=45 
15 IF A$=” ''THEN 25 45 RETURN 
20) ON VAL (A$) GOSUB 30, 40, 50, 60 50 F=40 
25 CALL (1, F, D) 55 RETURN 
27 GOTO 10 60 F=—38 

70 RETURN 


O notă va dura pînă la acționarea unei taste (1—4), corespunzătoare 
altei note. 
Încercaţi să extindeți programul, încît să asociaţi și celelalte note unor 
taste. 
Programul următor generează note folosind generatorul de numere alea- 
toare pentru frecvenţă și durată : 
10 CALL (1, INT (RND (0)*90+10), INT (AND (0)*50+5)) 
20 GO TO 10 
Generarea de note cu frecvențe din ce în ce mai mari se poate realiza cu 
programul : 
10 FOR 1=100 TO 10 STEP-1 
20 CALL (1, 1, 50) 
30 NEXT I 
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Observaţie : Ștergerea programelor de mai sus, în vederea introducerii 
altora ce utilizează subrutina în limbaj de asamblare, nu se poate face cu SCR 
pentru că se va şterge și subrutina. Pentru a nu șterge programele linie cu linie, 
se va ieşi de sub controlul interpretorului BASIC acţionînd RESET, intrind sub 
controlul Monitorului, iar apoi se va reintra în BASIC cu comanda G0815. 
Astfel, subrutina în limbaj maşină va rămîne și se va şterge doar programul 
BASIC. 

3. Se va utiliza o subrutină în limbaj maşină ce permite generarea de 
sunete de durată mai mare, folosindu-se pentru durată un contor pe doi octeți. 
Subrutina va primi tot doi parametrii, primul reprezentînd frecvenţa iar cel 
de-al doilea durata. 


ORG 635EH 


DW MD ISP ; adresa memoriei disponibile 
DB 1 ; programului în limbaj BASIC 
DW NOTA ; adresa subrutinei 
DB 255 

NOTA : POP H adresa parametrului 2 


CALL CVINT 
MOV E, A 


(durata) 
durata în reg. E 


î.. [. v.. .. v.. 


POP H adresa primului parametru 
MOV B, A în B frecvenţa 
MAR: CALL sp 
DCR E ; decrementare contor 
INZ IAR 
RET 
sp: LXI H,35FFH 
Sl: MOV D,.B ; în D frecvenţa 
MVI A, 8 ; 1 în bitul 3 
OUT 22H 
s2.: DCX H ; buclă în care se 
MOV AH ; generează 1 pe durata 
ANA A ; dată de reg. D. 
RZ 
DCR D 
INZ s2 
MOY D, B 
MVI A, 0 ; 0 în bitul 3 
OUT 22H 
53: DCX H ; buclă în care 
MOY A, H ; se generează 
ANA A ; pe durata dată de 
RZ 
DCR D ; reg. D 
INZ S3 
IMP S1 


Subrutina CVINT este identică cu cea din exemplul precedent. 

Programul următor va apela subrutina în limbaj de asamblare descrisă 
mai sus pentru interpretarea unei melodii. Frecvenţele şi duratele sînt date în 
instrucțiuni DATA, fiind citite cu instrucțiunea READ. 


196 READ A,B 
20 CALL (1, A, B) 
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30 GO TO 19 

100 DATA 51 3, 45, 1, 40, 3, 51, 1, 40,2 

110 DATA 51, 2, 40, 4, 45, 3, 40, 1, 38, 2, 49,1 
120 DATA 45, 1, 38, 8, 40, 3, 38, 1, 34, 
130 DATA 40, 1, 34, 2, 40, 2, 34, 4, 38, 
140 DATA 34, 1, 30, 2, 34, 1, 38, 30,8, 
150 DATA 51, 1, 45, 1, 40, 1, 38,1 
160 DATA 30, 8, 30, 3, 45, 1, 40,1 

170 DATA 34, 1, 30, 1, 27, 8, 27, 3, 40, 
180 DATA 38, 1, 34, 1, 30, 1,27,1 

190 DATA 27, 1, 30, 2, 38, 2,27, 2 
200 END 


Execuţia programului se va termina prin apariţia erorii 21, deoarece au 
fost epuizate toate constantele din instrucțiunile DATA. Modificaţi programul 
utilizînd instrucțiunea RESTORE, reluînd interpretarea” melodiei. 


9.4.13. Instrucţiuni de calcul cu matrice. Cu toate că instrucțiunile deja 
prezentate permit efectuarea de prelucrări asupra tablourilor, prin utilizarea 
variabilelor indexate (cu unul sau doi indici), limbajul BASIC conţine un set 
de instrucțiuni care permit prelucrarea tablourilor (cu una sau două dimensiuni) 
fără referiri la fiecare element al tabloului. În acest sens sînt disponibile urmă- 
toarele instrucțiuni : 


MAT READ A, B, ... Citeşte datele din instrucțiuni DATA pentru 
MAT READ A (3, 4), B (10) tablourile A, B dimensionate în prealabil 
sau în instrucţiune. 


Observaţie : Datorită prefixului MAT, utilizat în instrucţiuni, tablourile vor fi numite matrice 
(indiferent dacă au una sau două dimensiuni). 


MAT INPUT A,B,--: Citește datele pentru matricile A, B de la con- 
MAT INPUT A (2,4), B(3,3),::: solă. 
Datele introduse sînt memorate linie cu linie, în matrice. 
MAT PRINT A, B, -:: 
MAT PRINT A (4,4), B(3,2),-:: Tipăreşte linie cu linie valorile curente ale matrici- 
lor A, B dimensionate în prealabil sau redimensionate 
în instrucțiune. 


MAT A=B Matricea A primește dimensiunile lui B și apoi B este 
copiat în A. 

MAT A=B+C Adună sau scade matricile B și C. Matricile B și C tre- 

MAT A=B—C buie să aibă aceleași dimensiuni. Matricea A are dimen- 
siunile matricii rezultat. 

MAT A=B*C înmulțește matricile B și C şi depune rezultatul în 


matricea A, care va primi dimensiunile rezultatului. 
Dimensiunile matricilor B și C trebuie să fie compati- 
bile (produs de matrici). 

MAT A=(expresie)*B Realizează produsul matricei B cu un scalar egal cu 
valoarea expresiei dintre paranteze. Rezultatul pro- 
dusului este depus în matricea A, care este dimensio- 
nată corespunzător. 

MAT A=INY (B) Inversează matricea pătrată B, 

MAT A=INV (B),D Inversa este memorată în matricea A care va avea 
dimensiunea lui B. Valoarea determinantului va fi 
atribuită variabilei D. 

MAT A=TRN (B) Calculează transpusa matricei B și depune valoarea 
în matricea A, care va avea dimensiunile matricei 
rezultat. Tablourile A și B trebuie să fie distincte. 
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Pr 


MAT A=ZER : Atribuie tuturor elementelor matricei A valoarea zero. 
MAT A=ZER (3, 4) Matricea A poate fi redimensionată conform speci- 
MAT A=ZER (7) ficaţiilor din instrucţiune. 

MAT A=CON Atribuie tuturor elementelor matricei A valoarea 1. 
MAT A=CON (3, 10) Matricea A poate fi redimensionată conform speci- 
MAT A=CON (8) ficaţiilor din instrucțiune. 

MAT A=IDN Atribuie elementelor diagonalei principale valoarea 1, 
MAT A=IDN (2,5) celorlalte elemente li se atribuie valoarea zero. Dacă A 
MAT A=IDN (7) este matrice pătrată ea va deveni matrice unitate. 


Observaţie : 

Instrucţiunile matriciale pot fi împărţite în două categorii : 

— instrucţiuni de intrare/ieşire 
MAT READ 
MAT INPUT 
MAT PRINT 

— instrucțiuni de atribuire — în care matricei din membrul stîng i se 

atribuie rezultatul unei operaţii matriciale. 

Matricile inţroduse prin instrucţiunile de intrare/ieşire sau matricea din 
membrul stîng al unei instrueţiuni de atribuire, pot îi alocate ia execuția instruc- 
țiunii MAT respective, nefiind necesară declararea lor în instrucțiunea DIM. 
În cazul în care matricile au fost declarate în prealabil, într-o instrucţiune DIM, 
sau au fost introduse printr-o instrucțiune MAT anterioară, ele pot fi redimensio- 
nate cu respectarea condiţiilor : 

— numărul de dimensiuni ale tabloului să fie păstrat (un vector nu poate 
deveni matrice şi nici invers), 
— numărul de elemente al matricei redimensionate trebuie să nu depă- 
şească numărul de elemente al matricei iniţiale. 
Dimensiunile specificate în instrucțiunile mavriciale pot fi constante, 
variabile sau expresii. 
Exemplu : 


MAT READ A (M+N, N+1),B 

Citirea matricelor. Citirea matricelor se realizează cu instruețiunile a 
MAT READ şi MAT INPUT. 
20 MAT READ B(2,3),A (3) 


30 DATA 5, 11, —17, 1,2, 3, 1E7,0,1 
După execuţia instrucţiunii 20 matricile A și B vor conține : 
B(1,1)=5; B(1,2)=11; B(1,3)=—17 


B(0,1)=1; 8B0,2)=2; B(9,3)=3 
A(D=19; A 0)=0; A(3)=>1. 


Matricile A şi B puteau fi declarate și în instrucțiunea DIM caz în care, 


în instrucțiunea 20, nu mai trebuiau specificate dimensiunile 


10 DIM A (3), B(2,3) 
20 MAT READ B, A 
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Aceleași observaţii sînt valabile şi pentru instrucțiunea MAT INPUT. 
În acest caz, datele sînt citite de la consolă (tastatură) 


10 DIM A (10), B(3,3) 
20) MAT INPUT A (3), B(2,3) 


Lă 


i Matricile A, B vor fi alocate la execuţia instrucţiunii DIM. Instrucţiunea 
MAT INPUT va redimensiona matricile A şi B și apoi va citi de la consolă valo- 
rile elementelor (pe linii). 

Se observă că redimensionarea satisface cele două cerinţe : 
— păstrarea tipului (vector sau matrice), 
— noul număr de elemente este mai mic decit cel alocat iniţial. 


Observaţie : Instrucţiunea 10 DIM nu era absolut necesară, matricile puteau fi 
alocate în instrucțiunea MAT INPUT. 


Tipărirea matricelor. Pentru tipărirea matricelor se utilizează instrucţiunea 
MAT PRINT. Matricile se tipăresc linie cu linie. În cadrul unei linii, spaţierea 
intre elemente se face conform separatorului utilizat în lista de matrici din MAT 
PRINT (separatori pot fi „,* sau „;"). După tipărirea unei linii a matricei se 
lasă o linie liberă, pentru ca liniile să apară mai clar. Dacă lista din MAT PRINT 
conține mai multe matrici, între liniile unei matrici şi ale următoarei din listă, 
se lasă două linii libere. 

[10 DIM A (3,2) 

20 MAT READ A, B (3) 

30 MAT PRINT A, B 

40 DATA 1, 2,3, 4,5, 6, 7,8, 9 
[ 50 END. LE: 


Instrucţiunea! MAT READ va citi tablourile A şi B. 
La execuţia instrucţiunii 30 se vor tipări următoarele valori la consolă 


(display) : 


EEN 


; Matricea A (3, 2) 


; Vectorul B (3) va fi tipărit ca 
; matrice coloană B (3, 1) 


oo tom 


Elementele matricei A pot fi tipărite comasat, dacă se foloseşte separa- 
torul „;“. În acest caz, instrucţiunea 30 va fi: 


[30 MAT, PRINT[A ; B. 
FB va îi tipărit la fel ca mai sus. [5 


În cazul cînd în MAT PRINT, se specifică dimensiuni pentru un tablou 
din listă, tabloul va fi mai întîi redimensionat și apoi tipărit cu noile dimensiuni. 
De exemplu, dacă instrucțiunea 30 de mai sus ar fi fost: 


30 MAT PRINT A (2, 2), B(2) 


86 Limbajul BASIC pentru microcalculatorul personal aMIC. Manual practic 


atunci s-ar fi tipărit: 


i : ; matricea A (2, 2) 
II ; vectorul B (2) 
8 


Observaţie : I-a redimensionarea unei matrice, trebuie avut în vedere faptul că 
elementele matricei sînt memorate liniar, formînd un vector din coloane puse 
cap la cap. Deci, elementele de pe aceeași poziţie, în matrice nu vor fi mereu 
aceleași după redimensionare. De exemplu, matricea : 


1 2 3 
5 6 

A (4, 3)= 
i ri 8 9 
10 11 12 


119 8 
A (3, 3)= 4 3.1 
7 5 3 


Calculul inversei unei matrice. O matrice pătrată, nesingulară poate fi 
inversată. De remarcat că, o matrice poate îi inversată în ea însăşi, adică, matri- 
cea din membrul stîng al instrucţiunii poate fi aceeaşi cu cea din membrul drept. 


Exemplu : 10 MAT A=INV (A) este corectăs 
Dacă se doreşte şi calculul determinantului matricei A (sau numai deter- 
minantul) se va folosi instrucțiunea : 10 MAT A=INV (A), VI. 
La execuţia instrucţiunii 10, variabilei V1 i se va atribui valoarea deter- 
minantului matricei A. 
10 MAT READ A (2,2) 
20 MAT B=INV (A),D 
30 MAT C=A*B 
40 MAT PRINT A, B, C 
5) PRINT D 


60 DATA 1, 2,3, 4 
70 END 


Execuţia acestui program va determina tipărirea matricelor : 
TA | 1 2 îi Aus | —2 1 
te În: RR E i Duel ae (ET: —0.5 


1 
AKP AA la 
[C=A*B=A*A “i y 


Se va tipări și valoarea determinantului matricei A 


FF Dzdet (A)=(1*4)—(2%3)=—2 


| — matrice unitate 
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Observaţie : Pentru calculul inversei unei matrice, se scrie transpusa matricei, 
se înlocuieşte fiecare element cu complementul sau algebric (minorul cu semnul 
corespunzător) împărțit la valoarea determinantului matricei. Inversa se poate 
calcula mai eficient prin alte metode. 

Transpusa unei matrice. Transpusa unei matrice A (M, N) va avea dimensiu- 
nile (N, M). Un vector fiind tratat ca matrice coloană, transpusa sa va fi o matrice 
linie. 

Ş10 MAT INPUT V (10) 
20 MAT A=TRN (V) 
30 END 

Instrucţiunea 10) va citi de la consolă vectorul V, de 10 elemente. Instruc- 
țiunea 20) va aloca matricea A (1, 10) și-i va atribui valorile elementelor vecto- 
rului V. Transpusa unei matrice linie este o matrice coloană. 

19 DIM V (19) 

20 MAT INPUT A (1, 10) 
30 MAT V=TRN (A) 

40 END 

În acest program transpusa matricei linie A va fi memorată în vectorul V. 
Observaţii : 

1. În instrucțiunile matriceale se poate lucra cu vectori atita timp 
cit operaţiile efectuate nu necesită transformarea vectorilor (tablouri cu o 
dimensiune) în matrice (tablouri cu două dimensiuni). Acest lucru (permiterea 
utilizării vectorilor în instrucțiunile matriceale) este util în descrierea majori- 
tăţii problemelor în care se prelucrează matrici (ex. : sisteme de ecuații liniare 
— termenii liberi şi necunoscutele sînt notaţi ca vectori B (N), X (N) nu ca 
matrice B (N, 1), X (N, 1)) 

2. O matrice nu poate fi transpusă în ea însăși. Instrucţiunea : 


10 MAT A=TRN (A) este incorectă. 


Produsul a două matrice. Pentru a putea înmulţi două matrice numărul 
de coloane al primei matrice trebuie să fie egal cu numărul de linii al celei de-a 


doua. 
Se consideră instrucțiunea : 


50 MAT A=B*C 


Dacă B are dimensiunile (P, N), iar C (N, Q), matricea A va avea dimen- 
siunile (P, Q). 

În cazul în care matricea A nu a fost în prealabil alocată, ea va fi alocată 
la execuţia instrucţiunii 50, cu dimensiunile (P, Q). Dacă matricea A a fost alo- 
cată ea va căpăta dimensiunile (P, Q). 

Observaţie : Matricea rezultat nu poate figura ca matrice factor. Deci instruc- 
țiunile : 
10 MAT B=B*C 


sau 
10 MAT C=B*C 


sînt incorecte. 
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Adunarea şi scăderea matricelor. Pentru a putea aduna sau scădea două 
matrice, ele trebuie să aibă aceleași dimensiuni. Aceleași dimensiuni vor fi atri- 
buite şi matricei rezultat. 


Într-o instrucţiune nu se poate executa decit o singură operaţie. Instruc- 
fiunea : 
10 MAT A=B+C—Dleste greșită. 
Matricea din membrul stîng al atribuirii, poate figura și în membrul drept. 
510 MAT A=A+B,este, corectă] :/ 
Inmalţirea unei matrice cu un sealari 
+] 10 MAT A=(expresie)*B]] 


Matricea A va primi dimensiunile lui B şi va avea ca elemente, elementele 
matricei B, înmulțite cu valoarea expresiei. Expresia trebuie să fie inclusă între 
paranteze 


[Exemplu : 307MAT A=(COS (X)4SIN (x))*B E 


Iaiţializarea unei matrice. Generarea unei matrice cu toate elementele 
aero se poate realiza cu instrucțiunea : Pi 


i [50 MAT A=ZER (3,2)] 


Dacă matricea A a fost alocată înainte de execuţia instrucţiunii 50 va primi 
dimensiunile (3, 2), dacă nu, va fi alocată cu aceleaşi dimensiuni. 


În cazul în care se urmăreşte iniţializarea matricei, fără alterarea dimen- 
siunilor, nu se vor mai specifica dimensiunile, în instrucţiunea MAT 


be. 
10 DIM A (5,5) 
. 


50 MAT A=ZER 
Pentru tablouri cu o singură! dimensiune se poate utiliza : 
10 MAT V=ZER (10) 


Pentru a genera o matrice cu toate elementele 1, se pot folosi, de exemplu, 
instrucțiunile : 


60 MAT B=CON (3, 3) 
sau 
70 MAT B=CON 
Instrucţiunea 70 va fi utilizată în cazul în care B este alocat în prealabil. 
Pentru a genera o matrice unitate (cu unu pe diagonala principală și zero 
în rest) se va îolosi funcţia IDN. Exemplu: 
10 MAT A=IDN (3,3) i] = 


Dacă! matricea nu este pătrată (sau nu se specifică” dimensiuni egale în 
funcția IDN), prin diagonală principală se va înțelege, diagonala ce pleacă din 
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elementul cu poziţia (1, 1) şi merge diagonal pînă la epuizarea numărului de 
linii sau dei coloane. 
De exemplu : 


19 MAT A=IDNI(2,3) - 


A=| 0 ș| 
lo 19 


9.4.14. Instrucţiuni de prelucrare grafică, Soluţiile multor probleme con- 
stau din şiruri lungi de numere a căror interpretare este destul de dificilă. Repre= 
zentarea sub formă grafică a acestor şiruri de valori numerice facilitează aprecie- 
rea cantitativă şi, calitativă a soluțiilor. 

Problemele în care se utilizează facilităţile grafice impun reprezentarea 


grafică a unor valori numerice (tablouri, valori ale unor funcţii etc.) sau reali- 
zarea unor desene, hărţi etc. 


va genera : 


În primul caz utilizatorul este interesat de forma graticului și de încadrarea 
lui pe ecranul dispozitivului de afişare. În cel de-al doilea caz, pentru utilizator 
va fi importantă specificarea explicită a scării de reprezentare, pentru a efectua, 
eventual, măsurători pe desene etc. 

Una din soluţiile de realizare a graficelor folosind limbajul BASIC poate 
consta în scrierea unor subrutine în limbaj de asamblare, care utilizează un anu- 
mit display, şi utilizarea lor, în BASIC, cu ajutorul instrucţiunii CALL. Această 
soluție este puţin flexibilă (nu este independentă de tipul perifericului grafic) 
şi destul de greoaie pentru un începător. 

De aceea au fost introduse instrucţiuni speciale pentru prelucrări grafice. 


Instrucţiunea MOVE. Formatul instrucţiunii : 

nr. linie MOVE X,Y 
unde: X, Y pot îi constante, variabile sau expresii. 

Instrucţiunea MOVE este folosită pentru a poziţiona spotul în punctul 
de coordonate (X, Y). De menţionat că instrucțiunea MOVE execută numai 
poziționarea în punctul de coordonate (X, Y) nu marchează punctul respectiv. 

Instrucţiunea DRAW, Formatul instrucţiunii este : 

nr. linie DRAW X, Y 
unde: X, Y pot fi constante, variabilefsau expresii. 

Instrucţiunea DRAW este folosită pentru a trage o linie între punctul în 


care se află spotul la întîlnirea instrucţiunii şi punctul de coordonate X, Y spe- 
cificate în instrucţiune. 
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De exemplu dacă se dorește reprezentarea datelor conţinute în vecto- 
rul V (N) se poate folosi secvența 


199 MOVE 1,V (1) 
110 FOR J=1T0 N 
120 DRAW J, V() 
130 NEXT J 


Instrucţiunea 100) execută o poziționare în punctul de coordonate (1, V (1)), 
apoi în ciclul FOR se unesc prin linii elementele vectorului V. Se observă că 
instrucţiunile MOVE şi DRAW sînt suficiente pentru a face reprezentări grafice. 


Instrucţiunile WINDOW şi VIEWPORT. Coordonatele X, Y specificate 
în instrucţiunile MOVE şi DRAW sînt exprimate în unitățile de măsură în care 
sînt exprimate mărimile de reprezentat (metri, kg, volţi etc.). 

Acest sistem de coordonate definește „spaţiul utilizatorului“ sau spaţiul 
virtual. Spaţiul virtual este limitat practic de precizia aritmeticii maşinii (£ 108). 
Acest „spaţiu utilizator“ va fi reprezentat la o anumită scară pe suprafața dis- 
play-ului. 

După cum s-a arătat la începutul paragratului, în problemele de repre- 
zentare grafică a unor date, utilizatorul preferă să definească limitele spațiului 
în care sînt cuprinse valorile de prezentat şi să accepte scara și originea implicit 
«determinate, fără a mai specifica o scară de reprezentare şi o origine. 

Instrucţiunea prin care utilizatorul specifică limitele „spaţiului utilizator” 
în care sînt cuprinse datele de reprezentat este : 


nr. linie WINDOW A, B,C,D 


unde : A, B, C, D sînt variabile, constante sau expresii care reprezintă limitele 
spațiului utilizator, în ordinea : 


A = limita stingă C = limita inferioară 

B = limita dreaptă D = limita superioară 

Cele patru limite definesc un spaţiu dreptunghiular. Orice punct de coor- 
donate (X, Y) pentru care: 

ASXSB 

CsSYSD 


va îi reprezentat grafic. Punctele care cad în afara dreptunghiului nu vor avea 
imagine pe suprafața display-ului. Din linia trasă cu instrucţiunile : 

19 MOVE XI, Yi 

29 DRAW X2, Y2 
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va fi reprezentată numai porţiunea interioară dreptunghiului (ferestrei), definite 
mai sus, de limitele A, B, C, D 

Observaţie : De remarcat că poate fi luat implicit spaţiul utilizator maxim posi- 
bil (impus de aritmetică) 


10 WINDOW —10+ 18, 10418, —10418, 10418 


În acest caz toate valorile numerice cu care se poate lucra într-un program 
sînt reprezentate grafic. Dezavantajul constă în aceea că scara implicată este 
extrem de mare, și un domeniu de valori destul de mare (2 10%) se va reprezenta 
printr-un singur punct (pe un display cu latura de 1000 puncte). 

y Fă) Laturile ferestrei (dreptunghiului) declarate în instrucţiunea WINDOW 
trebuie să fie cît mai apropiate de domeniul de valori de reprezentat, pentru ca 
graficul obţinut să fie cît mai fin. 

Pînă acum s-a considerat că spaţiul utilizator, definit prin instrucțiunea 
WINDOW, va fi reprezentat pe toată suprafaţa display-ului. În unele aplicaţii 
se va dori scrierea unor comentarii alături de grafic sau realizarea mai'multor 
grafice pe aceeaşi suprafaţă. 

Pentru a descrie porțiunea din suprafaţă display-ului pe care va fi realizat 
graficul (va fi proiectat spaţiul utilizator) se foloseşte instrucţiunea : 

nr, linie VIEWPORT A, B, C, DJ] Ur] 


unde : A, B, C, D sînt variabile, constante sau expresii şi reprezintă limitele 
zonei din suprafaţa display-ului, în aceeaşi ordine ca pentru WINDOW : stîngă, 
dreaptă, inferioară, superioară. 

Şpre deosebire de WINDOW unităţile în care se exprimă limitele A, B, C, D 
sint unităţi fizice. 


Lu gsi ps e 


satisfacă “cerinţele de it) față de îl ast ră grafic, casete 
display-uri au suprafaţa pătrată, altele dreptunghiulare etc.). Independenţa 
de tipul perifericului, asigură ca un program scris pentru un anumit display să se 
poată folosi și pentru alte tipuri de echipamente de afișare. 


Unitatea în care se exprimă limitele A, B, C, D s-a ales ca fiind un procent 
din latura pătratului cel mai mare, care poate fi înscris în suprafaţa display-ului. 
Aceasta se va numi unitate grafică (UG). Originea a suprafeței display-ului se con- 


sideră în col ul din stînga jos. În aceste condiţii instrucțiunea : 
ai Ri Spent 
719 VIEWPORT 0, 100, 6, 100 SERA 
DEEE Ang a. 
va specifica dimensiunile celui mai mare pătrat înscris în suprafața ff 
(dacă “suprafața display-ului este pătrată, va reprezenta întreaga suprafață). 
Această instrucțiune este executată implicit de sistem. | 
“De asemenea implicit este executată și instrucțiunea : 


WINDOW 0, 100, 0, 100 


Aceste două instrucțiuni realizează o corespondență unu la unu între 
unitățile utilizator. (pe orizontală şi pe verticală) și unitatea grafică (UG). 
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Cu aceste iniţializări implicite un cerc va apărea nedistorsionat, deoareceg 
pe ambele axe de coordonate se folosesc aceleași unităţi de măsură, iar supraiața 
FI 2 SI bal xi 
graticului este pătrată (ace eași scară, pe ambele axe). 
Programul următor va trasaj un cerc! pe orice display : 


[100 MOVE 85, 50 130 NEXT Jă 
110 FOR JI=0TO 2*P1 STEP PI/10 149 END 
120 DRAW 35*COS (J)+50, 35*SIN (J)+ 504 
Cercul vajavea centrul în punctul de coordonate (50, 50), iar raza va fi 35, 


Se observă că, în program, nu a fost necesară utilizarea instrucțiunilor 
WINDOW sau VIEWPORT. Nu este necesară cunoașterea particularităților 
display-ului. Este suficient să se ştie că orice display are o suprafaţă de cel puţin 
100/100 unităţi (UG). Evident, pentru reprezentări de date care nu variază 
intre ( şi 100 se impune utilizarea instrucţiunii WINDOW (altiel se reprezintă 
doar porţiunea din grafic cuprinsă în fereastra 0, 100, 0, 100). Dacă se va dori 
ca reprezentarea graficului să se facă numai pe o porţiune din suprafaţa display- 
ului, va trebui utilizată instrucţiunea VIEWPORT. De pildă, pentru colțul din 
dreapta sus se va îolosi instrucțiunea : ; 


110 VIEWPORT;75,100, 70, 100 | | 

Instrucţiunile prezentate mai sus: MOVE, DRAW, WINDOW, VIEW- 
PORT formează setul minim de instrucţiuni grafice, cu ajutorul cărora se poate 
rezolva orice problemă de reprezentare grafică! Sint prevăzute, de asemenea, 
instrucțiuni care înlesnesc utilizarea subrutinelor pentru realizarea graliceloi, 
manipularea figurilor (rotații, translaţii) şi instrucţiuni care realizează indepen- 
fența . programelor față de tipul perilericului, grafic. 

Instrucţiunile RMOVE şi RDRAW.| Formatul instrucțiunilor : 
| |nr. linie RMOVE X, Y? 
oi Înr. linie RDRAW X.Y E 4 i 
unde: X, Y pot fi constante, variabile sau expresii. 

Tnstrucțiunile RMOVE şi RDRAW se deosebesc de MOVE şi DRAW prin 
faptul că coordonatele X, Y nu Sînt raportate la originea sistemului, ci la poziția 
spotului! (punctului grafic), la momentul execuţiei instrucţiunii. Aceste instrue- 
țiuni sînt utile în scrierea subrutinelor care generează! diverse figuri. Figurile 
respective vor putea fi desenate șn orice loc, pe suprafața display-ului, prin uti- 
lizarea instrucţiunii MOVE, înainte de apelul rutinei care genereazăy figura. 
Astfel, se realizează translaţiati figurilor. Eni 


nstrucțiunea SCALE. În unele aplicaţii, realizarea de hărţi, diagrame, 
desene etc., este utilă indicarea explicită a scării de reprezentare dorite. 
Formatul instrucţiunii folosite în acest caz este : 
nr. linie SCALE S1, S2 
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unde : SI, S2]sînt constante, variabile sau expresii care reprezintă factorii de 
scară pe orizontală și pe verticală. Factorul de scară indică numărul unităților 
utilizator reprezentate pe o unitate grafică 


sri unităţi utilizator 
> unităţi grafice (UG) 


Observaţie : În cazul în care se dorește efectuarea de măsurători pe grafic, utili- 
zatorul va trebui să ştie cîţi milimetri (de exemplu) reprezintă o unitate grafică 
(UG) pentru perifericul respectiv (se reamintește că 1UG reprezintă a suta parte 
din latura pătratului maxim inscriptibil în suprafaţa display-ului). 

Originea sistemului de coordonate se consideră în punctul în care se află 
spotul (punctul grafic) la execuţia instrucţiunii SCALE. Pentru aceasta se va 
folosi, eventual, “instrucţiunea MOVE, înaintea instrucţiunii SCALE. Punctul 
specificat ca origine va fi reprezentat pe g grafic în colţul din stînga jos. 

Se poate remarca faptul că instrucţiunea WINDOW este echivalentă cu 
SCALE, avînd în plus speciticarea originei. Coordonatele originii vor lua locul 
parametrilor A, C din instrucțiunea WINDOW, iar factorii de seară vor deter- 
mina limitele B şi D din WINDOW. 


Instrucţiunea ROTATE. Formatul instrucţiunii ROTATE este următorul 3 
nr. linie ROTATE U 


unde : U este o constantă, variabilă sau expresie. 

Instrucţiunea ROTATE are efect numai asupra instrucţiunilor RMOVE 
şi RDRAW, realizînd rotația cu unghiul U a vectorilor generaţi cu RDRAW 
sau a poziționării realizate cu RMOVE. 

Dacă instrucţiunea ROTATE este utilizată înainte de apelul unei rutine 
care generează o ligură cu ajutorul instrucţiunilor RMOVE şi RDRAW, figura 
generată va apărea rotită cu unghiul specilicai (în radiani). Rotaţia figurii 1 res- 
pective va fi realizată faţă de punctul în care s-a început: generarea figurii, punc- 
tul unde se află spotul la începutul secvenţei de program (rutinei) ce desenează 
figura. Instrucţiunile MOVE și DRAW nu sînt afectate de ROTATE, deoarece 
coordonatele absolute, specificate în aceste instrucțiuni trebuie să rămînă neal- 
terate, pentru a se putea executa poziționări în punctele dorite înainte de gene- 
rarea unor figuri cu RMOVE și RDRAW. Astfel, se permite utilizarea simul- 
tană şi independentă a translației şi rotației figurilor. 

Exemplu : Următorul program va trasa un pătrat cu latura de 10 unităţi (Se 
consideră iniţializările implicite deci nu se vor folosi WINDOW şi VIEWPORT) 


99 MOVE 0,0 120 RDRAW —10, 0 
100 RDRAW 10, 0 130 RDRAW 0, —10 
110 RDRAW 0, 10 140 END 


Pătratul va fi trasat începînd din origine. Instrucţiunea 90 poziţionează 
spotul în originea spaţiului utilizator care pentru iniţializările implicite, coincide 
cu originea suprafeţei grafice (colţul din stînga jos). 

Pătratul poate fi micşorat, mărit sau transformat în dreptunghi cu ajuto- 
rul instrucţiunii SCALE S1, S$2. Dacă S1=S271 pătratul va fi micşorat sau 
mărit, dar laturile vor rămîne egale între ele. Pentru $1=$S2=1 pătratul va fi 
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trasat neschimbat față de cel din exemplul de mai sus. În cazul în care S17S2 
laturile trasate pe display nu vor mai fi egale, iar pătratul va fi reprezentat ca 
dreptunghi. 

Următorul program va desena pătratul de două ori mai mare decit cel 
trasat de programul precedent. 


10 MOVE 9, 0 119 RDRAW 0, 10 
20 SCALE 1P, 1/2 120 RDRAW —10, 0 
30 GOSUB 199 130 RDRAW 0, —10 
40 STOP 140 RETURN 

190 RDRAW 19, 9 150 END 


Se observă că secvenţa de program care desena pătratul a fost scrisă ca 
subrutină. Dacă se doreşte ca pătratul să fie desenat în alt loc pe suprafața 
display-ului se va schimba instrucțiunea 10. De exemplu, punînd : 


"=, N] 10 MOVE 50, 50 


pătratul va fi trasat (în sens trigonometric) începînd din punctul de 
coordonate (50, 50). 


Observaţie : Latura pătratului va avea tot 10) unităţi utilizator (s-a folosit aceeași 
secvență de instrucțiuni pentru generarea pătratului), însă datorită indicării 
scării de 1/2, dimensiunea laturii pătratului desenat va fi 20 unităţi grafice (UG), 
deci dublă faţă de latura pătratului trasat de programul precedent. 


Pătratul generat de subrutina care începe cu instrucțiunea 100 poate fi 
trasat începînd din punctul de coordonate (50, 50) şi rotit cu unghiul PI/4 cu 
ajutorul programului : 


10 MOVE 50, 50 30 GOSUB 100 
20 ROTATE PI/4 40 STOP 


În cazul în care se doreşte ca pătratul să fie micșorat şi rotit, în sens invers 
trigonometric, se va putea folosi programul : 
10 MOVE 20, 30 40 GOSUB 109 
20) SCALE 2, 2 50 STOP 
30 ROTATE —PI/3 


Pătratul va fi trasat începînd din punctul de coordonate (20, 30), micşorat 
la jumătate (latura de 5UG) şi rotit în sens orar cu unghiul PI/3. 


La instrucţiunea 100 începe aceeași subrutină de generare a pătratului 
ca şi în programele precedente. 


Instrucţiunea INIT. Formatul instrucţiunii este următorul : 
"nr, linie INIT (P] 


Execuţia instrucţiunii INIT constă în ştergerea ecranului display-ului 
şi efectuarea inițializărilor grafice implicite, anume : 


WINDOW 0, 100, 0, 100 
și 
VIEWPORT 0, 100, 0, 100 
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Deci instrucțiunile grafice SCALE, WINDOW, VIEWPORT și ROTATE 
executate înainte de INIT își pierd valabilitatea. 

Dacă parametrul P este prezent, atunci display-ul trece în mod pagină,. 
altfel rămîne în mod defilare. 


Instrucţiunea GSINPUT. Formatul instrucţiunii GSINPUT este următorul: 
nr. linie GSINPUT VI, V2 


unde: VI, V2 sînt variabile. 

Instrucţiunea GSINPUT este utilizată pentru a realiza independența; 
totală faţă de tipul perifericului grafic. Execuţia instrucţiunii constă în atribui- 
rea variabilelor VI, V2 a dimensiunilor exprimate în unităţi grafice (UG) ale 
suprafeţei display-ului. De exemplu, un display poate avea suprafața dreptun- 
ghiulară cu latura orizontală mai mare sau cu cea verticală mai mare (fig. 9.3 a, b). 


UG 


— 130UG 


100 UG 


Fig. 9.3. Stabilirea unităților grafice pe suprafața ecra- 
nului de afișare: a) V1=130UG; V2=100UG; b) Vl= 
=100 UG ; V2=150UG. 


Executînd instrucţiunea GSINPUT VI, V2 pentru display-ul din fi- 
gura 9.3. a, variabilele V1, V2 vor primi valorile V1=130, V2=100, iar pentru 
display-ul din figura 9.3b, V1=100, V2=150. 

Utilizînd variabilele VI, V2 în instrucțiunea VIEWPORT se vor obţine: 
programe care utilizează înti eaga suprafață a display-ului, indiferent de forma ei: 

100 GSINPUT A, B 
110 VIEWPORT 0, A,0,B 

Instrucţiunile PLOT şi UNPLOT. Instrucţiunile PLOT și UNPLOT impre- 
ună cu caracterele speciale (semigrafice), utilizabile în instrucţiunea PRINT,- 
oferă facilităţi semigrafice limbajului BASIC. Formatul instrucțiunilor este:: 


nr. linie PLOT X, Y 


și 
nr. linie UNPLOT X, Y 


uned : X, Y pot fi constante, variabile sau expresii. 
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Execuţia instrucţiunilor constă în a aprinde sau stinge pătrăţelul de coor- 
donate X, Y de pe suprafaţa display-ului. Suprafaţa display-ului este formată 
din 64X64 pătrăţele, un pătrăţel conținînd 4X4=16 puncte grafice. Originea 
suprafeţei, (pătrăţelul de coordonate 0, 0) se consideră în colțul din stînga, jos 
al suprafeţei display-ului. Prin urmare, valorile expresiilor X şi Y vor fi cuprinse 
între 0 și 63. Următorul program, trasează două linii, una orizontală, cealaltă 
verticală, care se intersectează în mijlocul ecranului 


10 INIT 40 PLOT 1, 32 
20 FOR 1=0 TO 63 50 NEXT 1 
30 PLOT 32, 1 60 END 


9.5. Mesajele de eroare ale interpretorului BASIC 


În timpul introducerii programului, instrucțiunile (liniile ce încep cu un 
număr) nu sînt analizate sintactic, ci sînt depuse în memorie, în ordinea numere- 
lor de linie. O linie care nu începe cu un număr va fi interpretată de sistem 
drept o comandă. Dacă ea nu reprezintă o comandă validă (de exemplu este o 
instrucţiune fără număr de linie) sistemul va tipări mesajul : WHAT ?, indicînd 
faptul că ultima linie introdusă este incorectă. Linia va trebui să fie reintrodusă 
corect. 


Erorile depistate în timpul execuţiei programului sînt tipărite la consolă 
sub forma : 
ERROR XX IN LINE YYYY 


unde : 
— XX reprezintă codul erorii 
— YYYY reprezintă numărul liniei în care a fost depistată eroarea 


Semnificațiile codurilor de eroare (4X) posibile, sînt date în continuare : 


Codul erorii Semniticaţie 
1 — programul nu se termină cu instrucțiunile END sau STOP 
2 — tip de instrucțiunea nerecunoscut (cuvint cheie incorect) 
'3 — există instrucţiuni sursă după instrucțiunea END 
4 — numărul liniei destinaţie este incorect (în instrucţiunile IF, GOTO, GOSUB, 
ON) 
5 — numărul liniei destinaţie este inexistent (în instrucțiunile IF, GOTO, 
GOSUB, ON) 
6 — caracter ilegal 
7 — instrucțiune neterminată 
8 — expresie incorectă 
9 — eroare la conversia în virgulă mobilă 
10 — utilizare incorectă a funcţiilor GET sau PUT 
11 — tentativă de redimensionare (prin DIM) a unui tablou 
12 — tablou utilizat înainte de a fi definit (stocat) 
13 — argumentul funcţiilor SIN, COS sau TAN prea mare (>10%) 
14 — relaţie incorectă în instrucțiunea IF 


A5 — depășirea stivelor în evaluator — expresie prea complicată 
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16 — eroare în ridicarea la putere (0 la puterea ( sau număr negativ la putere 
reală) 
17 — înstrucţiune FOR utilizată fără instrucțiunea NEXT corespunzăteare 


(buclă FOR neînchisă) 


18 — instrucțiune NEXT utilizată fără instrucțiunea FOR corespunzătoare 

19 — depășire stivă FOR (peste 3 cicluri cuprinse unul într-altul) 

20 — indice mai mare de 254 sau egal cu 0 

21 — se dorește citirea mai multor constante decit au fost definite în instrucțin= 
nile DATA 

29 depăşirea valorilor deciarate ale indicilor 

23 radical din număr negativ 


24 — logaritm din număr negativ 


25 dimensiuni necompatibile petru produs de matrici 

26 matricea din membrul stîng al egalităţii nu poate apărea în menebrut 
drept (pentru transpusă sau produs de matrici) 

27 — matrice singulară — nu poate [i inversată 

28 — redimensionare incorectă — noile dimensiuni depășesc pe cele maxime 

29 — prin redimensionare nu poate fi schimbat numărul de dimensiuni al umnt 
tablou 

39 — matricea nu este patrată — nu poate fi inversată 

31 — matricile nu au aceleaşi dimensiuni (pentru sumă sau diferență) 

32 — subrutina în limbaj de asamblare cu numărul dorit nu a fost găsită în tabela 
de subrutine 

33 — parametrii incorecţi în instrucțiune de prelucrare grafică (VIEWPORT, 


WINDOW sau SCALE) 


mea ma 


Fie în faza de introducere a programului, fie în timpul execuției sale poate 
apărea la consolă mesajul MEMORY FULI», indicînd faptul că nu mai există 
memorie disponibilă, de alocat pentru variabile sau de stocat noi linii de pro- 
gram. În acest moment se poate introduce o singură cifră (de la consolă) care 
va indica acţiunea care va avea loc în continuare. 


Număr introdus Semnificație 

[] RUN  — execută programul din memorie 

1 SAVE  — copiază programul din memorie pe casetă 
2 LIST  — listează programul din memorie 

E] SCR — şterge programul din memorie 
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Capitolul 10. | Microcalculatorul aMIC în matematicile 
elementare şi statistică 


Dar, mai întii, o vedere de ansamblu a programării „personale“ pe aMIC, 

Utilizarea echipamentelor de calcul într-o serie de activităţi economico- 
sociale a fost mult timp frînată de regimul de lucru specilic puterii de calcul 
centralizate : prelucrarea lucrărilor pe loturi. Timpul de răspuns, adică durata 
între momentul predării spre execuţie a unei lucrări şi momentul primirii rezul- 
tatului prelucrării, poate fi de ordinul orelor sau chiar zilelor, funcție de o serie 
de factori specifici exploatării pe loturi la centrele de calcul. Valoarea mare a 
timpului de răspuns implică două inconveniente majore : 

a) apariţia de discontinuități mari în activitatea de elaborare, testare și 
depanare a programelor, avind ca rezultat o eficirnţă scăzută a activităţii de 
programare. 

b) imposibilitatea utilizării puterii de calcul în activităţi care solicită o 
colaborare permanentă om-calculator pe durata execuţiei programelor. 

Liri Regimul de lucru cu acces direct al utilizatorilor la echipamentul de calcul, 
fie că este vorba de acces local sau de la distanţă, rezolvă în cea mai mare parte 
inconvenientele de mai sus, însă această rezolvare nu este în beneficiul unui 
număr mare de utilizatori. Principalul obstacol în răspîndirea acestui mod de 
lucru îl constituie costul ridicat al unui sistem de calcul interactiv şi numărul 
limitat de terminale-ce pot îi gestionate simultan în cadrul unui asemenea sistem. 


Apariţia microcalculatoarelor, considerate ca fiind sisteme total inter- 
active, permite diseminarea puterii de calcul pentru orice tip de aplicaţii, prin 
avantajele specifice pe care le posedă : preț de cost scăzut, programare în limbaje 
conversaţionale de nivel înalt, posibilitatea conectării prin linii de teletransmisie 
la sisteme de calcul de capacitate medie-mare, interfață simplă cu operatorul 
uman etc. 

Microcalculatorul personal aMIC pune la dispoziția utilizatorilor săi o 
serie de facilități destinate implementării cît mai simple a puterii de calcul 
într-un domeniu vast de aplicaţii. 

Interfața cu operatoru! este concepută pe două niveluri : nivelul monitor 
şi nivelul BASIC. Ambele au făcut obiectul unei tratări detaliate în capitolele 
precedente. Reliefăm doar faptul că această ierarhizare, neobişnuită la micro- 
calculatoarele personale, permite dezvoltarea de aplicaţii în două direcţii : 
cea a domeniilor specializate, necesitind elaborarea de programe în limbaj de 
asamblare, și cea a domeniilor de larg interes, scrierea aplicațiilor făcîndu-se în 
limbajul BASIC-aMIC, al căror obiect îl constituie prezentul capitol. 
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Limbajul BASIC implementat pe microcalculatorul aMIC este simplu 
şi uşor de învăţat, fiind accesibil unei categorii largi de utilizatori, chiar nespe- 
cialişti în informatică. Crearea, modificarea şi testarea programelor se desfășoară 
rapid, datorită modului de lucru conversaţional al interpretorului BASIC ; 
numărul de erori posibile semnalate la execuţia programelor este relativ redus, 
depanarea programelor neridicînd astfel probleme deosebite. Corectarea liniilor 
de program eronate se poate executa imediat, programul fiind disponibil pentru 
o nouă rulare, ciclul modificare-testare fiind foarte scurt. Acest mod de lucru, 
gen „Încearcă să vezi ce se întîmplă“ nu este cel mai indicat, dar prezintă nete 
avantaje pentru nespecialişti, eliminind o bună parte din bariera psihologică 
ridicată de utilizarea unui instrument nou de lucru în cadrul activităţii clasice 


a acestora. Îi n o BIB E N i 
|. + Domeniile de utilizare includ cu preponderență calcule inaiematice com- 
plexe, prelucrării de tip gestiune economică cu un volum mic-mediu de date, apli- 
caţii tehnico-știinţifice, învăţămînt, aplicaţii grafice ete. Toate exemplele date 
în continuare au mai mult un caracter demonstrativ, didactic, încercîndu-se 


acoperirea unui număr cit mai mare de domenii diferite. Ioa pe ai 


Pej măsură € ce programarea în BASIC este însușită,] utilizatorul ai “poate 
defini propriile sale aplicaţii plecînd de la exemplele demonstrative ; partea cea 
mai dificilă o constituie abordarea algoritmică a aplicaţiei ce se doreşte a fi 
transpusă pe aMIC. Scopul acestui capitol este şi acela de a demonstra că un nu- 
măr surprinzător de activităţi pot fi abordate prin prisma transpunerii lor pe 
microcalculator, şi că aceasta este practic la îndemîna tuturor. 


10.1. Rezolvarea ecuaţiei de gradul II : 


AX2+BX+C=0, unde A, B, C sînt numere reale. RE (X), IM (X) sînt 
partea reală şi partea imaginară ale rădăcinilor complexe conjugate. 


Programul se bazează pe organigrama dată în figura 10.1 


10  PRINT"AX*X+BX+C=0" REZOLV, 
15  PRINT"INTRODUCETI COBFICIENTIL:* price ema 
25 INPUT A,B,C CU A,B,C NUMERE REALE 


30 IE A<)0 THEN 45 
39 PRINT"ECUATIA NU EST6 DE GA.2* „Cs: zii e d eta 


45.6 

40 i Mae e ECUATIA ARE RADACINI COMPLEXE 
23 PARTEA REALA „666667 

H>=0 THEN 80 PARTEA IHAGINARA -3.8413 
SS PRINT"ECUATIA ARE RADACINI COMPLEXE» 
60 PRINT"PARTEA REALA",B/A/2 
70 PRINT"PARTEA IMAGINARA", -SQR(=H/A/2 
72 60 70 95 
80 PRINT"RADACINI REALE" 
83 z<saR(n) 
86 ua2xa 
90 PRINT(-B+2)/u, 4-8B-2)/u 
95 END 

REZOLVAREA ECUATIEI 
REZOLVAREA ECUATIBI AXĂ BĂ+Ga0 
AXNX+BX+C=0 CU A,8,C NUHERE REALS 
CU A,B,C NUMERE REALB . INTRODUCETI COEFICIENTII+ - 
INTRODUCETI COEFICIENTIT+ 12 13.12 =A43 
i. RADACINI REALE 


23 
ECUATIA NU ESTE DE GR.2 1,46551 -2.55884, 


100 


RE(X ):- 


2A 


(X1,X2) 


(stop 


Fig. 10.1. Organigrama rezolvării 


10.2. Rezolvarea inecuației 
AX?2+ BX +C<0. 


Programul se bazează pe 
organigrama din figura 10.2. 


IM(X)) 


(RE(X) 
"RĂDĂCINI COMPLEXE 
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START 


"ECUAȚIA NU 
STE DE GRADUL 


ecuației de gradul II. 


PRINTYSA SE papiLvne 
PRINT"AXnX+BX+C < 0" 

PRINT" INTRODUCETI COEFICIENTII» 
INPUT A,B,c 

IF A=0 THEN 55 

MaBeB-4nAxc 

IF H>=0 THEN 70 

PRINŢ"ECUATIA NU ARE* 
PRINT"SOLUTIE IN R* 

GO TO 170 

PRINT" INECUATIA HU ESTE" 
PRINT"DE GRADUL 2* 

60 TO 170 

V=SQR(H) 

W=2*A 

Tat-Be+V)/u 

V=(-B-V)/u 3 

IF T < V THEN 110 

Vav 

V=T 

T=u 

GOGUB 140 
60 To 170 
PRINTeXc * 
60 TO 170 
PRINT T,*< 
RETURN 

END 


x 


SA Sk REZELVE 
AXuXeBX+C ce 


INTRODUCETI COEF 
2.2 


ICIENTIL: 
Bi 


4 78.9 


ECUATIA ARE 
SOLUTIE IN R 
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"INECUATIA NU ESTE N 
DE GRADUL 2” N 


Fig. 10.2. Organigrama rezolvării inecuaţiei 
AX?+BX+C <0. 


10.3. Rezolvarea unui sistem (Cramer) de 5 ecuații 
cu 5 necunoscute 


Programul rezolvă un sistem de forma: 
CD) 
unds : 
C este matrice de 5x5 elemente 
X este vector coloană de 5 elemente 
D este vector coloană de 5 elemente. . 


Elementele matricilor C şi D nu sînt solicitate prin dialog, ele sînt pre- 


lixate în program la liniile 160, 170 şi 180. Dacă se doresc alte valori, se vor 
modifica aceste linii. 
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Rezultatul se afișează sub forma unui vector cu 5 elemente. 


10.4. Afişarea unui 


PRINT * REZOLVAREA UNUI SISTEM DE ECUATII - 
DIH C(5,5),D(S5),E(S,S),F(S5),6(5),x(s» 
MAT READ C,D 

PRINT * MATRIGEA COEPICIENTILOR * 
MAT PRINT C 

PRINT » TERMENII LIBERI * 

MAT PRINT D 

MAT E=INV(C) 

MAT X=E*D 

PRINT * VECTORUL SOLUTIE * 

MAT PRINT X 

MAT F=CxX 

MAT G=D-F 

PRINT * VECTORUL EROARE * 

MAT PRINT G 

DATA 11,3,0,1,2,0,4,2,0,1,3,2,7,1,0 
DATA 4,0,4,10,1,2,5,1,3,13 

DATA $1,15,15,20,92 

sToP 

END 


şir finit de numere prime 


Programul generează și afișează cîte un număr prim, pornind de la mul- 
țimea numerelor prime determinate anterior. Mulțimea de pornire este 2,3. 


Programul se bazează pe următoarele ipoteze : 
1) orice număr prim este un număr impar 
2) avînd mulţimea primelor n numere prime, 


(P,, Pa, ..., Pa) numărul K, K > pn, va fi număr prim dacă nu este 
divizibil cu numerele prime Pi < K. 


Întrucît prin BASIC se poate rezerva un masiv cu dimensiunea maximă 
de 254, se pot reţine maximum 254 numere prime. Din acest motiv afișarea 


se opreşte la tipărirea 


numărului prim K=—Pass, adică la 16132==2+601.769. 


PRINT * LISTARE NUMERE PRIME * 
DIM P(254) 

P(1):2 

P(2)=3 

PRINT P(1) 

PRINT P(2) 

k=S 

1=3 

J=2 


100 1F PtJ)*2 > K THEN 180 
110 IF INT(K/P(J))=K/P(J) THEN 160 
120 J=J+1 

130 IP J<=2S4 THEN 100 

140 STOP 

150 REM * K NU ESTE PRIN * 
160 K=K+2 

170 G0T0 90 

180 REM * K ESTE PRIN * 
190 IF 1254 THEN 210 

200 P(1)=K 

210 PRINT K 

220 K=K+2 

230 l-let 

240 8070 90 

250 END 
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10.5. Verificarea dacă un număr dat este sau nu prim 


Programul solicită prin dialog introducerea numărului de verificat. În 
baza ipotezelor de la programul anterior se verifică dacă numărul este prim sau 
nu și se afișează rezultatul (fig. 10.3). 


Fa Numărul se compară cu mulțimea numerelor prime P, < INT Vă +1. 
Din acelaşi motiv ca la programul anterior (masiv cu mărime maximă 254) 
numărul dat la verificare trebuie să fie: 


X < 2+601.769 


10 PRINT " VERIFICEREA DACA UN NUMAR B PRIN * 
20 PRINT “ DATI NUMARUL * 

30 INPUT X 

40 1F X<O THEN 60 

50 IF INf(X)-X=0 THEN 80 

60 PRINT * NUMAR NEGATIV SAU RBAL * 

70 6070 30 

80  DIH P(254) 

90 P(1)=2 

100 P(2)=3 

110 MH=INT(SOR(Ă))eL 

120 K=5 

130 1=3 

140 REW * COMPARARE CU NUMERELE PRIME * 
150 J=2 

160 1F P(J)"2)k THEN 230 

170 LE INT(KR7/P(J))=K/P(J) THEN 190 

180 J=J+i 

190 K=K+2 

200 IF K<X THEN 150 

210 PRINT X;* NB E PRIH * 

220 SToP 

230 P(1)=K 

240 IF X=k THEN 280 

250 k=k+2 

260 Izi+l 

270 G0T0 150 

280 PRINT X;* ESTE PRIN * 

290 sToP 

END 


Yig. 10.3. Organigrama verificării dacă un număr este sau nu prim. 


Fig. 10.4. Organigrama 


des- 


M=INT(SQR(N) +1) compunerii unui număr în 


factori primi. 


Ec 


INT(A/P(J)) = A/PU) za 


A=A+2 


PRINT DU)ÎG(D) 


> 
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10.6. Descompunerea unui număr în factori primi 


Programul solicită prin dialog numărul de descompus în factori primi: 
Se aplică ipotezele de la 10.4 şi 10.5 pen ru a obţine șirul de numere prime: 


pînă la N, N fiind numărul dat. Se contorizează apoi de cîte ori se cuprinde 
fiecare număr prim în numărul dat. 


Considerind descompunerea de forma : 


se afișează : 


qi qk2e, 


a dj 


PRINT * DESCOMPUNEREA uk FACTORI PRIMI * 
DIM P(254),D(20),6t209 + 
PRINT * DATI NUMARUL * 
INPUT N 
M=INTISOR(NDD)e) 

P(1)+2 

P(2)23 

U=3 

A-=5 

FOR I=U TOM 

J=2 

1F P(J)*2>A THEN 90 

IP INT(A/P(J))=A/P(J) THEN 80 
Jai 

IF J<234 THEN 55 

SToP 

A=A+2 

GOTO 50 

IP 17234 THEN 100 
PiL)=A 

A=A+2 

NEXTI 

REM * DESCOMPUNEREA * 
K=1 

J=1 

1=0 3 

B=P(K) 

C=N/B 

IF (INT(C)=CY=O0 THEN 180 
IF l=0 THEN 165 

G(J)=1 

J=I*i 

1=0 

K=K+l 

B=P(K) 

GOTO 135 

IF 1<2Q THEN 190 
D(J)=8 

l=l+1 

N=C 

IF C<>1 THEN 133 
G(J)=1 

REM * TIPARIREA * 


FOR Isi T0 J 
PRINT D(1);"*";6G(1) 
PRINT 
NEXT 1 
PRINT * CONTINUATI (DA=1) * 
INPUT D 
5 IF D=1i THEN 255 
sToP 
5 PRINT * DATI NUMARUL * 
INPUT U 
IF U<N THEN 113 
N=U 
U=M 
M=INT(SOR(N))+1 
REM * A= ULTIM NUMAR VERIFICAT * 
GOTO 43 
END 
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10.7. Determinarea celui mai mare divizor comun 


Programul solicită prin dialog cele două numere întregi și afişează cel 
«mai mare divizor comun al lor. 


Ss PRINT * CEL MAI MARE DIVIZOR COMUN * 
10 PRINT ” DATI CELE DOUA NUMERE * 
15 INPUT A,8 

20 IF A=B THEN SO 

25 IF AB THEN 49 

30  B=B-A 

35 GOTO 20 

40 A=A-B 

45 GOTO 20 

30 PRINT A 

S5 60T0 10 

60 END 


10.8. Simplificarea unei fracții 


Programul solicită prin dialog numărătorul şi monitorul fracţiei. Se afi- 
şează un vector cu toate valorile cu care se poate simplifica fracţia, inclusiv 
fracţia simplificată. 


Ş PRINT * SIMPLIFICAREA FRACTIILOR * 
10 PRINT ” DATI NUMARATORUL * 

15 INPUT A 

20 PRINT * DATI NUMITORUL * 

25 INPUT B 

30 DIM S(100) 

33 1=0 

40 D=2 


45 PF D<=B THEN 95 

So IF I=0 THEN 80 

SS PRINT * SE POATE SIMPLIFICA CU: 
60 MAT PRINT Sl) 

65 PRINT * FRACTIA SIMPLIFICATA: *; 
70 PRINT A;"/";B 

75 sToP 

80 PRINT * NU SE POATE SIMPLIFICA * 
e5 PRINT * FUNCTIA DATA: *; 


95 c=8/0, 
100 1F INT(C)=C THEN 115 
105 D=D+1 

110 GOTO 45 

115 E=A/D 

120 IF INT(E)=E THEN 130 
125 G0T0 105 

130 A=E 

135 B=c 

140 1=1+1 

145 S(1)=0 

150 GOTO 40 

155 END 


10.9. Calculul aproximativ al factorialului unui număr 


Programul solicită prin dialog numărul n și determină factorialul |său 
pe baza formulei : 


n | 2 /2mn (n Je)" 


Simplificarea unei fracţii 
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Formula este indicată pentru valori mari ale lui n, deoarece nu există 


înmulţiri succesive, mari consumatoare de timp. 


Ss PRINT * FACTORIAL “ 

10 PRINT * DATI NUHARUL ” 
15 INPUT N 

20 IF N>O THEN 335 


23 PRINT " NUHAR NEGATIV SAU ZERO * 


30  SToP 

35 F=(SQR(2xPIxN))*(N/EED"N 
40'' PRINT N;"l = ";F 

45 sToeP 

So END 


10.10. Permutări, aranjamente, combinări 


Programul solicită mai întîi tipul operaţiei, şi corespunzător 
parametrii necesari. Calculele se execută după formulele : 


a) permutări de n elemente : 
P.=n| 
b) combinări de n elemente luate cîte r: 


Cr nl 


n — (a Iri 


c) aranjamente de n elemente luate cîte r: 


ie n! 


aie (nr)! 
Se afișează apoi rezultatul operaţiei. 


10 PRINT * P: PERMUTARE A N ELEMENTE 


20 PRINT * A= ARANJAMENTE A R ELEMENTE DIN N 
30 PRINT * C: COMBINARE A N ELEMENTE LUATE CITE P 


10  A%=INKRYS 

So  IFAS=* ” THEN 10 

60  1FAB="P” THEN 100» 

70  IFA%="A*” THEN 100 

80  IFA$=:"C" THEN 100 

'90 GOTO 10 

100 PRINT * INTRODUCETI PE N 
110 INPUT N 

115 1FAS="P” THEN 170 

120 PRINT * INTRODUCETI PE R 
130 INPUT R 

140 1F, Rc=N THEN 170 

150 PRINT *R>N 

160 GOTO 120 

170 2 = 

180 GOsUB 400 

190 IFA%="*P" THEN 340 

200 B = 

210 2 = N-R 

220 G0SUB 100 


C-=A 
240 IFAS="A" THEN 280 
250 2 RR 
260 GOSUB 400 
270 CC = CsA 
280 PRINT “N*;AS;"R = ";8/t 
290 PRINT * CONTINUATI (D/N) - 
300 AS=INKEYS 
3f0 IFA$=" * THEN 300 
320 IFA$="D" THEN 10 


acesteia, 


108 Microcalculatorul aMIC în matematicile elementare și statistică. 


Subprogramul de la linia 400 calculează exact valoarea factorului Z !. 
Be apelează cu valorile Z egale cu n, n—r,r de care avem nevoie în formulele 
anterioare. 


10.11. Ordonarea unui şir de numere 


Programul solicită mai întîi cîte numere se ordonează, apoi şirul de numere 
efective. Se execută ordonarea în ordine crescătoare sau descrescătoare, afişind 
şirul ordonat. 


3 PRINT * ORDONAREA UNUL SIR DE NUMERE 
10 PRINT * IN ORDINE CRESCATOARE/DESCRESCATOARB - 
15 PRINT * CITE NUMERE INTRODUCETI ? * 
20 INPUT N 

25 DIM AD 

30 PRINT * DATI SIRUL DE NUMERE * 

35 MAT INPUT A 

40 PRINT * IN ORDINE CRESCATOARE (DA=l) 
45 INPUT D 

35 FOR I=i TO N-1 

60 FOR J=i+l TON 

65 IP D=1 THEN 80 

70 IF ACLDXA(I) THEN L10 

75 G0T0 83 

GO IF ACLICA(I) THENIIO 

85 B=A(J) 

90 FOR K=] TO lei STEP -i 

95 ACKD=A(K-1) 

100 NBXT K 

105 A(L)=B 

110 NEXT 

115 NEXT 1 

120 MAT PRINT a 

125 STop 

130 END 


10.12. Calculul sumei celor mai mari numere 
dintr-un șir de numere date 


10 PRINT * ADUNAREA A N NUNERE DIN H 
20 PRINT * AVIND VALOAREA CEA MAI MARE 
30 PRINT * CITE NUMERE INTRODUCETI ? * 
40 INPUT M 

30 DIM A(M» 

60 PRINT * DATI NUHERELB 

70 MAT INPUT A 

60 PRINT * CITE NUMERE SE ADUNA 

90 INPUT N 


100 IF N<=H THEN 130 pa a “ 
110 PRINT * N) M SE ADUNA TOATE NUMERELE Programul solicită prin dia- 


120 pin sc log numărul total de elemente 


440-409 să 29 n şi valorile lor, apoi solicită va- 


160 FOR Jzl+i TOM 

170 IF B(1)>sA(J) THEN 210 loarea m. 

180 c=B(1) : » 

190 B(LD=AcI) Se afișează suma celor m 
BOR As diac numere. 


240 FOR l=1 TON 

250 B=B+B(1) 

2680 NEXT 1 

270 PRINT * SUMA CELOR *;H;" NUMERE - 
275 PRINT * CU VALOAREA CEA MAI MARE: +: 
2890 PRINT 8 

270 SToP 

300 END 
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10.13. Calculul valorii medii ponderate 
a unei variabile aleatoare 


Se efectuează calculul valorii medii ponderate după formula : 


Se introduc prin dialog numărul total de măsurători, valorile fiecărei 
măsurători şi ponderile cu care se efectuează calculul. 


Se afișează valoarea V. 


3 PRINT * VALOAREA HEDIE MATEMATICA CU PONDERE * 
10 PRINT * DATI NUMARUL DE MASURATORI * 
15 INPUT N 

20 DIM H(ND),X(ND 

25 PRINT " DATI VALORILE MASURATORILOR * 
30 MAT INPUT M 

35 PRINT * DATI PONDERILE * 

40 HAT INPUT X 

45 A=0 

So 8=0 

55 REM * CALCULUL * 

60 FOR I=1 TON 

65  AsAeH(LOmXI) 

70  B=B+X(1) 

75 NEXT I 

80 PRINT * V = “;A/B 

85 STP 

90 END 


10.14. Calculul valorii medii şi abaterii standard 
a unei variabile aleatoare 


| Se determină valoarea medie și abaterea standard după formulele 3 


1 n 
V = Te Ş, X, 
i=l 
pa ȘI ev) 
. Preta 7 zi ( tai , 


Se introduc prin dialog numărul total de măsurători şi valorile lor. Se 
afișează valoarea medie și abaterea standard determinată. 
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3 PRINT ” CALCULUL VALORII MEDII SI A ABATERII * 
10 PRINT * STANDARD * 

15 PRINT * CITE MASURATORI ATI EFECTUAT * 
20 INPUT N 

23 PRINT * DATI VALORILE HASURATORILOR * 
30 MAT INPUT M(N) 

33 s:0 

45 FOR X=1 TON 

50  S=S+M(x) 

55 NEXT X%X 

60 V=S/N 

65 s=0o 

75 FOR X=1 TON 

80  S=S+(M(X)-vn"2 

85 NEXT x 

90  Z=SQAR(S/(N-1)) 

95 PRINT * VALOAREA HEDIE: *;v 

100 PRINT ” ABATEREA STANDARD: "2 

105 sToP 

110 END 


10.15. Tabela valorilor unei funcţii definită pe intervale 


Programul solicită prin dialog trei intervale ce vor alcătui domeniul 
de definiţie, de forma : 
(A, B], (B, 0), [C, D] 


Funcţia este definită astfel: 


— pe intervalul [A, B] în linia 35 
— pe intervalul (B, C) în linia 45 
— pe intervalul [C, D] în linia 55 


3 PRINT * FUNCTIA VARIABILA IN INTERVALE zi 
10 PRINT * DATI INTERVALELE A,B,c, 

15 INPUT A,B,c,0 

20 FOR X=A TO D STEP 0.25 

25 K = 4+SGN(X-A)+SGN(X- 8 )+SGN(X-C)+SGN(X-D) 
30 ON K GOTO 35,35,aş, 45, 4s5,ss,ss 

33 F=0 

40  6oTo 60 

45 F = SQR(X-8» 

30  G0To 60 

53 F = SQR(C-B)+c-x 

60 PRINT "X=";X; “PX aF 

635 NEXT X 

70 STop 

75 END 


ir : ea : i. Dita "200 hăfineşte 
Definiţiile pot fi modificate în cadrul programului. Linia i 
pasul cu ua se Pai isp tabelarea valorilor funcţiei. Ca rezultat, se afişează 
valorile funcției și ale argumentului pe intervalele date. 


10.16. Calculul volumului butoiului 


Se determină volumul butoiului pe baza formulei aproximative : 


2 
Va de fai A ie 


Calculul valorii medii şi abaterii unei variabile aleatoare 114% 


unde : 
D este diametrul secţiunii prin vrană 


d este diametrul fundului butoiului 

IL este înălțimea butoiului. 

Se solicită prin dialog circumferința la vrană și la fund și înălțimea, afi- 
şind ca rezultat volumul butoiului. 


10 PRINT * VOLUMUL BUTOtULUI n 

20 PRINT " DATI CIRCUMFERINTA LA VRANA * 
30 INPUT Ci 

40 PRINT * DATI CIRCUMFERINTA LA FUND * 
50 INPUT c2 

60 PRINT ” DATI INALTIMEA * 

70 INPUT L 

89 Di=C1/P1 

90  D2=c27/P1 

100 V=PlxLu((2x*D1+02)/6)*2 

110 PRINT * VOLUMUL BUTOLULUI: ";v 

120 STo? 

130 END 


10.17. Calculul volumului și suprafeţei torului 


Se determină volumul și suprafaţa torului pe baza formulelor : 
V=2xRr2 
A =A47ERr 


unde : 

R este raza torului 

r este raza secţiunii torului 

Se solicită prin dialog valorile R și r, și se afișează suprafaţa și volumul 
determinate. 


10 PRINT " VOLUMUL St SUPRAFATA TORULUI * 
20 PRINT " DATI RAZA TORULUI » 

30 INPUT Ri 

40 PRINT " DATI RAZA SECTIUNII *» 

50 INPUT R2 


90 V=F*D2/4 

109 PRINT *» SUPRAFATA: *;R 
110 PRINT * VOLUHUL: ";V 
120 SToP 

130 END 


10.18. Calculul perimetrului şi suprafeţei unui triunghi 


Programul permite calcularea perimetrului şi ariei unui triunghi în două: 
cazuri : fie prin introducerea lungimilor celor trei laturi, fie prin introducerea 
lungimii unei laturi şi a mărimii celor două unghiuri adiacente. Se afişează 
perimetrul și suprafaţa determinată. 
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10 PRINT * CALCULUL PERIMETRULUI SI * - ai .. 
15 PRINT * SUPRAFETEI TRIUNGHIULUI * Si FRIZE . rolă e rani fa li Fi 
20 PRINT * SE CUNOSC LUNGIMILE LATURILOR * 30 PRINT * UNGHIURILE PE ACEASTA LATURA * 
30 PRINT * DATI LUNGIMILE LATURILOR * 40 PRINT " DATI LUNGIMEA LATURII * 
40 INPUT X,Y,Z So INPUT Y 
SO P=XeYez 60 PRINT * DATI UNGHIURILE * 
60 Q=P/2 70 INPUT U 
70  S=SOR(Qn(Q-X)n(0-Y)n(Q-2)) 80 INPUT U 
80 PRINT * PERIMETRUL: ";P 90  V=360-tUr+u) 
90 PRINT * SUPRAFATA: *;$ 100 X=Y*SIN(U*P1/180)/SIN(VxP1/180) 
100 sToP 110 Z=Y*SIN(U*P1/180)/SIN(V*P1/180) 
110 END 120 P=X+Y+7 
130 a=P/2 


140 S=SQR(ax(Q-X)x(0=Y)e(0-2)) 
150 PRINT * LATURILE: *;X,Y,zZ 
160 PRINT * UNGHIURILEB: *;U,V,u 
170 PRINT * PERIMETRUL: *;P 

180 PRINT * SUPRAFATA: *;S 

190 sTop 

200 END 


10.19. Calculul celui de-al N-lea număr din șirul 
lui Fibonacci. 
S-a plecat de la relația de recurentă: 
F (N)=F (N—1)+F (N—2), (V)N 23 
F(1)=1; F(2)=2. 
Programul se bazează pe organigrama dată în figura 10.5. 


10 PRINT"PROGRAMUL TIPARESTE” 
20  PRINT"AL N-LEA NUMAR DIN” 
30  PRINT"SIRUL LUI FIBONACCI * 
40 PRINT"N=" 

So INPUT N 

60 Tzi 

70 U=2 

80 FOR K=0 TO N-3 

20 v=y 

100 u=i+T 

110 T=v 

120 NEXT k 

120 PRINT"F( "N," de*,u 

140 END 


Fig. 10.5. Organigrama calcu- 
lului celui de-al N-lea număr 
din șirul lui Fibonacci. 


Calculul celui de-al N-lea număr din șirul lui Fibonacci 


113 


10.20. Calculul aproximativ al rădăcinii 
VăX=Z, n, X>0 


S-a folosit relaţia de recurenţă : 


Za | Zet zen R>0 


X, 
Za = 1 


Programul se bazează pe organi- 
grama dată în figura 10.6. 

Procesul de calcul se oprește cînd 
este satisfăcută relaţia : 


dacă x >, 
dacă x sl. 


| Zen Zu | < e 


z =[(N=1-Y + 


YN=1 


] 


PRINT"CALCIULUL RADICALULUI* 
PRINT"DE ORDIN N>=2 DINTR-UN” 
PRINT "NUMAR POZITIV X" 
PRINT"N=" 

INFUT N 

IF N>=2 THEN 43 

PRINT "EROARE" 

GOTO 20 

PRINŢ"Xx=" 

INPUT Y 

IF X>0 THEN £3 

IF X=0 THEN 75 

FRINT "EROARE" 

GOTO 45 

FRINT "REZULTATUL ESTE 0." 
GOTO 130 

IF X>1 THEN 100 

Y=i 


GOTO 105 

Y=X 

Z=((N-1)3%Y+X/YV* N-=10997N 

IF ABS(Z-Y)<=10*(-$) THEN 12$ 

Y=z 

GOTO 105 

PRINT"RADICALUL PIN ",X," PȘTE:",zZ 
END 


N 


Fig. 10.6. Organigrama calculului aproximativ al rădăcinii 


V X=Z, n>2, X>0. 
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Capitolul 11. | Microcalculatorul aMIC în economie 


şi tehnică 


11.1. Antecalculaţia de preţ pentru un produs 


Programul efectuează calculul preţului de producţie și livrare a unui 
produs, în baza formulei: 

Preţ producţie și livrare = (cost complet prod.)+ (beneficiu) 

Cost complet prod.=(cost uzină)++ (cheltuieli . desfacere) 


Beneficiu=15% (cost complet producţie). 


9 PRINT * ANTECALCULATIE UE PRET * Cost  uzină= (cost secţie) + (cheltuieli 
10 PRINT * MATERII PRIME SI MATERIALE * generale ale întreprinderii). 
15 PRINT * DIRECTE: » "Pi 

20 INPUT A i Cheltuieli desfacere =3% (cost uzină). 
25 PRINT * RETRIBUTII DIRECTE * . 

30 INPUT B Cheltui 'ale î i 

35 REM * CALCUL IMPOZIT » mieli „apte 250 ntreprinderit 
40 1 = (8x16)/100 =12% (cost secţie) 

45 PRINT * IMPOZIT 1674: "ll; LET € ) A 4 

SO RS * CALCUL C.A.s. " Cost secţie = (cost materii prime) 
55 C a ((8+1)*15)/100 iasă aie 3 
60 PRINT * C.A.5.: *;Cc;* LET * (patribații directe) +-(impo 
65 REM * CHELT. FUNC UTILAJE * zit 16%)+(C.A.$.)4+ (chelt. 
70 K = B+l+c A Mea i 
75 U s (kx*18)/100 cr ama utilaje)-+ (chel 
80 PRINT * CHELT.FUNC.UT.: *;U;" LL * tuieli generale secţie). 


ES REM * CHELT.GEN.SECTIE * 


pe i ga te-a PPR A a RET Se solicită prin dialog variabil ele : 
ptr falii pe uzat cost materii prime şi valoarea retri- 
110 PRINT * COST SECȚIE: +i8;: LEI buţiilor directe. Se afișează toţi para- 
1195 REM * CHELT. . Li FE GA ! . . . . 

120 E = (5x12)/100 ră metrii intermediari enumeraţi mai sus, 
130 REM: COST UZINA i i iar la sfîrșit, preţul final de producţie 
133 p. = Ș*8 . pe . = E 

sa NOE ZINA a Ia 3 şi livrare. Procentajele din cadrul calcu- 
iasa stii oo să abtina lelor unor parametri constituie un caz 
135 PRINT - CMELT.0ESPACERG: 0104 LEI e particular, fiecare utilizator putînd 
160 REM * e ui “e: . 

165 P = F+6 modifica programul conform cerinţelor 
170 PRINT * COST COMPLET PROD.: *;P;* LEI * .. 

175 REM * BENEFICIU 15% » proprii. 

d clape: lei SE ai rr 8 Pa PR SE 
185 PRINT ; BENEFICIU 15%: *;N;" LEI e» Prograinui este util în „cazul În 
19 peRe GALCUUT EREI PE DUE CADA AR care se dorește aflarea rapidă a variaţiei 
200 PRINT * PRET PROD.SI LIVRARE: * i 1 i 

edi Mier E aa preţului de producţie în funcţie de va- 
Ei atata ia Data Pat d riaţia costului materiilor prime ce intră 
z20 1F Dea THENio în componența produsului și a valorii 


230 END retribuţiilor necesare la executarea sa. 


Calculul primei acordate după grupa de vechime 
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11.2. Calculul primei acordate după grupa de vechime 


Se consideră următoarele grupe de vechime : 


|, = 0. ani 
II. 5—10 ani 
III. 10—15 ani 


IV. 15—20 ani 
V. > 20 ani 


Programul solicită prin dialog totalul sumei ce se va acorda drept prime 
pentru fiecare grupă de vechime. Se determină suma ce revine fiecărui angajat 
conform cu grupa din care face parte, și afişează lista tuturor angajaţilor, în- 
soțită de retribuția tarifară și prima acordată. 


10  PRINI * LALCULUL PRIMEI IN FUNCTIE 
15. PRINT * UE GRUPA DE VECHIME * 

20 PRINT * GRUPE VECHIME «5 3-10 
25 PRINI * 10-15 15-20 „> 20 ANI 
30 DIM P(3),NSt10).Tr5) 

40 PRINT * INTROD - SUMA/GRUPA CE St * 
15 PRINT * ACORUA UREPT PRIMA * 

So MAT INPUT P 

60 PRINT * INTROD.NR TOTAL ANGAJATI * 
70 INPUT M 

89 MAT T = ZER 

90 FOR I = 1 T0M 

100 READ N+(fo) 

110 READ v 

120 KX = INT(V/5)+1 

130 T(K) = TR) 

140 READ $ 

150 NEXT I 

160 FOR 1 = 1105 

T707P(1 = PULIVITU > 

1809 NEXT 1 

190 RIf:STORE 

709 FOR 1 = 1 T0M 

210 READ NSITO) 

220 READ v 

230 HN = INT(V/S)+1 

210 READ s » 

250 PRINT Nf;S;P(R) 

250 NEXT | 

270 SToP 

230 REM "NUME , VECHIME , RETRIBUTIE " 
290 DATA "IONESCU", 3,3200 

300 DATA "POPESCU",8,2710 

310 DATA *... 

1000 END 


Datele referitoare la angajaţi se introduc prin DATA coniorm cu liniile 
de la sfîrşitul programului. Fiecare linie va conţine numele angajatului, vechi- 
mea sa în muncă și retribuţia tarifară. 


11.3. Determinarea beneficiului pentru o structură de 
fabricaţie pe produse dată 


Programul poate îi utilizat ca mijloc de determinare a celei mai avanta- 
joase structuri de fabricaţie pe grupe de produse. Se solicită prin dialog urmă- 


toarele date: 
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— numărul şi numele produselor de fabricaţie ; 

— numărul și numele materialelor (materiilor prime) necesare fabricării 
tuturor produselor ; 

— pentru fiecare produs, cantitatea de materii prime ce intră în fabri- 
caţia sa ; 

— pentru fiecare materie primă, cantitatea existentă în stoc ; 

— pentru fiecare produs, beneficiul estimat ; 

— structura de fabricaţie (cîte bucăţi se vor fabrica din fiecare produs). 

Se verifică mai întîi dacă în baza datelor introduse, se poate realiza struc- 
tura de fabricaţie cerută (nedepășirea stocului de materii prime), iar dacă 
rezultatul verificării este pozitiv, se afişează beneficiul total pentru această 
structură. Se poate repeta întregul proces, modificînd doar structura de fabri- 
caţie, pînă la determinarea unei structuri optimizate (fig. 11.1), 


Structură de produse —=X(M) 


D(N) = necesar materiale pt. 
structura data 


Beneficiu = 3. X(i) a CL) 


i=1 


Fig. 11.1. Organigrama programului pentru determinarea beneficiului 
pentru o structură de fabricaţie pe produse date. 


Datele despre produse şi materiale rămîn nemodificate pe parcursul 
iteraţiilor, introducerea lor fiind necesară numai în faza iniţială, de creare a 
tabelelor de date din program. Odată salvat pe casetă cu aceste date introduse, 
programul poate fi reluat oricînd direct de la dialogul de stabilire a structurii 
de fabricaţie. 

Variabilele M, N conţin numărul de produse respectiv de materiale. Matri- 
cile utilizate conţin următoarele date: 

D $ (M) — denumirile produselor 


Determinarea beneficiului pentru o structură de fabricaţie de produse dată ]17 


P $ (N)  — denumirile materialelor 

A(M, N) —ciîte unităţi din materialul N necesită produsul M 
B (N) — stocul de materiale existente 

C (M) — beneficiul estimat pe produse 


Ciclul de verificare începe de la linia 300: 


10 PRINT " DETERMINAREABENEFICIULUI * 
12 PRINT " IN FUNCTIE DE 0 STRUCTURA * 
15 PRINT " DE FABRICATIE ALEASA “ 

20 PRINT * INTROD.NR.TOTAL PRODUSE " 


25 PRINT * SI NR.TOTAL MATERIALE * 
30 INPUT M,N 

40 DIH A(H,ND,X(ND,B(ND,C(N),D(N) 

50 DIM Ds(H,10) 

60 DIM PS(N,10) i 

70 PRINT * INTROD.DENUMIRI PRODUSE * 
80 FOR I =1T0M 

90 INPUT D4(1) 

100 NEXT 1 

110 PRINT * INTROD.DENUMIRI MATERIALE * 
120 FOR | = 1 TON 

130 INPUT PS(L) 

140 NEXT 1 

145 PRINT * INTROD CONSUM MAT/PROD, * 
150 FOR 1 = 1 T0M 

160 FOR J = 1 TON 

170 PRINT D$(1);" NR.BUC.DIN: *;P$(J) 
180 INPUT A(L,J) 

190 NEXT J 

200 NEXT 1 

205 PRINT * INTROD. STOC MAT *» 

210 FOR J = 1 TON 

220 PRINT * DIN *;P$(J);* CITE U/M AVEȚI * 
230 INPUT B(J) 

240 NEXT J 

245 PRINT * INTROD BENEF.ESTLAAT 

250 FOR 1 = 1 T0H 

260 PRINT D$(1);* CE BENEF.REALIZEAZA * 
270 INPUT C(1) 

280 NEXT 1 

290 PRINT * INTROD.STRUCTURA DE FABR. * 
295 PRINT * NR. PRODUSE PE TIPURI * 
300 FOR | = 1 TOM 

310 PRINT D$(1);" PRODUŞ * 

320 INPUT X(1) 

330 NEXT 1 

340 MAT D = ZER 

350 FOR 1 = 1 TON 

360 FOR ] = 1 T0M 

370 D(L) = D(L)+XCIDRALI,L) 

380 NEXT J 

390 NEXT 1 

400 J =0 

410 FOR 1 = 1 TON 

420 IF J <> O THEN 460 

430 IF D(1) <= B(L) THEN 460 

aa0 JI =1 

450 PRINT * STRUCTURA DATA NU SE POATE * 
455 PRINT * REALIZA * 

460 NEXT 1 

470 IF J = O THEN 520 

480 PRINT * ALTA STRUCTURA? (DAsI) 
490 INPUT E 

500 IP E = 1 THEN 290 

510 SToP 

520 $ =0 

Ş30 FOR L= 1 T0H% 

Ş40 3 = S+X(b)xc(t) 

S50 NEXT 1 

560 PRINT * BENEFICIUL 8STE: *;S 

570 G0T0 480 

580 SND 


118 Microcalculatorul aMIC în economie şi tehnică. 


Fig. 11.2. Organigrama programului pentru determi- 
narea drumului minim între două noduri ale unui 
graf dat. 


Determinarea drumului minim Între două noduri ale unui graf dat 119 


11.4. Determinarea drumului minim între două noduri 
ale unui graf dat 


Programul consideră un graf ca fiind definit prin noduri şi arce, fiecare 
nod fiind etichetat cu un număr întreg pozitiv. Se solicită prin dialog: 
— numărul total de noduri = N 
— numărul total de arce = E 
— eticheta (numărul) nodului de pornire (primul nod din drumul de 
minimizat) = S 
— eticheta (numărul) nodului de sosire (ultimul nod din drum) = 
— pentru fiecare arc : 
— nodul iniţial 
— nodul final 
— lungimea sa. 


i i E 10 PRINT * DRUHUL CRITIC * 
= Din datele introduse Se comple 20 PRINT * NUHAR DE NODURI * 
tează masivul A (N, 4) în care A (L, 2)= 30 INPUT N 
: . 40 PRINT * NUMAR DE ARCE * 
=1 000 000 considerat un timp foarte e 
. 60 DIM A(N,4),B(E,3: 
mare respectiv A (S, 2)—0 pentru nodul 70 PRINT “ NR.-UL NODULUI DE PORNIRE * 
. . 80 INPUT S 
de pornire. Masivul B (E, 3) se com- 90 PRINT * HR.-UL NODULUI DS SOSIRE 
ă ă i 100 INPUT H 
pletează cu numărul nodurilor pe arce 109 MAT Nada oa 
şi cu timpii necesari parcurgerii arcelor. 199 Uled7e deuuuoa 
. - . » V 
Conectorul A (L, 4) va conţine legătura 120 A(1,3) = 0 
către liniile din masivul B. pei sal 
. n . .. 165 REH * TIMPUL DE PORNIRE =0* 
În A (L, 2) se totalizează timpii 170 ais,2 = 0 
. .. . 180 PRINT * NOD 1 , NOD 2 LUNGIME - 
necesari parcurgerii grafului, conform 190 FOR P = 1 T0E 
schemei din figura 11.2. 20 E IA 
. Pi . . 220 B(P,3) =R 
Se afişează sub forma unui şir de 225 REM * îNLANTUIRE TABLOV A SI B 
etichete (numere) drumul minim între SEE pei 
cele două noduri specificate. Afişarea de EYE 
se face în ordinea inversă parcurgerii 0 ALA sea 
sale (de la nodul de destinaţie la nodul 290 k = 0 
de pornire). Mă 023 i 
RAR PRR NT n ci PF N OP e Dra Vagae er Ă 2320 IF A(L,2) < 1 THEN 360 
' Programul poate fi utilizat într-o 330 azi 
E .. 340 A(L,2) > 
serie de domenii unde este necesară 350 AtL'3) = 1 
i : FI 360 ] = B(J,l) 
optimizarea distanțelor parcurse, pla- 370 ÎR J <> O THEN 300 
nificarea activităţilor de producţie etc. DE e A 
Se va considera lungimea unui arc drept (08, 9 e itrea as0 
măsură pentru distanţe de parcurs, 430 k = Rei 
. . a IF K THEN 470 
timpi necesari în efectuarea unor ope- 450 15 RONI A 0 TEN 390 
ii ] 460 GOTO 270 
rații tehnologice etc. 470 PRINT **DIN *;5;* IN *;H;* DRUMUL *. 


480 PRINT * CEL MAI SCURT ESTE: * 
430 PRINT * PRIN NODURILE: *;H; 
SDo x = A(H,3) 

510 1F X = 0 THEN 550 

520 PRINT * , ";X, 

530 X = AtX,3) 

S$40 S0T0 510 

550 STOP | 

5640 END 
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11.5. Gestiunea unui stoc de magazie de tehnică dentară 


Se consideră că există o magazie care primește materiale specifice dentare, 
şi le distribuie la mesele de lucru. 

Fiecare masă de lucru elaborează o anumită lucrare, pentru care se con- 
sumă o anumită cantitate de materiale. 

Fiecărei lucrări îi este asociat un barem de consumuri utilizat pentru 
verificarea încadrării în normele stabilite. 

Programul oferă următoarele opţiuni de lucru : 

— punerea la zi a magaziei centrale (primire /eliberare materiale) ; 

— vizualizarea stocului existent în magazia centrală ; 

— punerea la zi a stocului de materiale la mesele de lucru, cu verificarea 


consumului de materiale ; 


— vizualizarea stocului de materiale existent la mesele de lucru. 


10 PRINT 
20 PRINT 
30 PRINT 
40 PRINT 
So PRINT 
S5 PRINT 
50 PRINT 
70 INPUT 


x 


MAGAZIA DE TEHNICA DENTARA * 

1= SE TINE LA ZI MAGAZIA CENTRALA * 

2= VIZUALIZARE STOC MAGAZIE CENTRALA * 
3= VIZUALIZARE STOC LA MESE * 

4= SE TINE LA ZI STOCUL LA MESE * 


Ş= sT 


» DATI NUMARUL PRELUCRARII * 


30 ON X GOTO 90,400,780,880,1540 


>0 PRINT 
100 PRINT 
110 INPUT 
120 IF A$ 
130 IF A$ 
140 PRINT 
150 .INPUT 
160 Y =0 
170 FOR 1 
180 IF 8% 


. 
. 
A9 
= 
2 


Add 


SE TINE LA ZI MAGAZIA CENTRALA * 
PRIHITI SAU ELIBERATI MAT.(P/E) * 


"E* THEN 450 

"P* THEN 90 
DATI MATERIALUL SI CANTITATEA * 
(T0),X 


1 TON 
M$(1) THEN 220 


190 O(1) = O([)+xX 


200 Y-=1 
210 1 =N 
220 NEXT 1 


230 IF Y <> O fHEN 340 
240 PRINT * MATERIAL NOU? (D/N» 


2350 INPUT 
260 IF As 


a$ 


"D” THEN 280 


270 GOTo 340 
275 REM * SE ADAUGA UN MATERIAL NOU * 


280 N = N+ 


1 


290 O(N) =X 
200 MS$(N) = 84 

310 FOR 1 =1 T0MN 

320 PRINT * CONSUM SPECIFIC PRODUS *;PS(1); 
325 PRINT * DIN MATERIAL ";8% 

330 INPUT P(LI,N) 


335 NEXT 1 
340 PRINT 
350 INPUT 
360 IF A$ 
370 PRINT 
380 INPUT 
390 IF A$ 
400 PRINT 
410 FOR 1 
420 PRINT 
430 NEXT 1 
440 GoTo 1 


A$ 
. 
. 
As 
o 


Li 
o 


MAI PRIMITI MATERIAL (D/N) * 


“D* THEN 140 
DORITI VIZVALIZARE STOC (0/N) * 


"D* THEN 10 
VIZUALIZARE STOC MAGAZIE CENTRALA 
1 TON 

(1), " “.0t1) 


450 PRINT * SE ELIBEREAZA MATERIAL LA MESE * 


MU PRINI 
470 INPUT 


s 


NATI NUMARUL. Ms * 


480 IF S$ <= O THEN 460 

490 IF S > 0 THEN 460 

500 PRINT * DATI MAŢERIALUL SI CANTITATEA * 
$10 LMPUT B$(T0),X 


520 Y :0 


330 FOR 1 = 1 TON 
S30 IF 8$ (> MS(1) THEN 370 
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760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
925 
930 
940 
950 
960 
970 
980 
990 


1000 
1010 
1020 
1030 


i At | 
lenN 
NEXT 1 
IF Y (> 0 THEN 610 
PRINT * NU EXISTA MATERIALUL IN MAGAZIE 
GOTO 680 
O(Y) = 0(Y)-x 
IF O0(Y) >=0 THEN 660 
PRINT * NU EXISTA CANTITATEA IN MAGAZIE * 
0(Y) = O(Y)+xX 
G0T0 680 
REM * SE ADUNA LA STOCUL MESEI * 
A(S,Y) = A(S,Y)+xX 
PRINT * MAI ELIBERATI LA MASA *;S;* (D/N> 
INPUT A$ 
IF A% = "D* THEN 500 
PRINT * ELIBERATI LA ALTA MASA? (D/N) * 
INPUT A$ 
IF A$ = "D” THEN 460 
PRINT * VRETI VIZUALIZARE STOC MASA (D/N» 
INPUT A$ 
IF A$ = "D* THEN 780 
GOTO 10 
PRINT * VIZUALIZARE STOC MASA * 
PRINT ” DATI NUMARUL MESEI * 
INPUT $ 
IF S <= O THEN 790 
IF S > Q THEN 790 
FOR |l=1 TON 
PRINT * Ms(1),* AS,» 
NEXT | 
PRINT * MAI VIZUALIZATI STOC LA MASA (D/N) 
GOTO 750 
PRINT * SE DAU REALIZARILE LA MESE * 
PRINT DATI NUMARUL MESEI * 
INPUT S 
IF $ <= 0 THEN 890 
IF S > Q THEN 890 
MAT B(M) = ZER 
PRINT * DATI PRODUSUL SI NR.PROD.REALIZATE 
INPUT 8$(T0),x 
Y=o0 
FOR 1 =:1T0M 
IF 8$ <> Pi) THEN W010 
Y=1 
Bl) x 
1= 
NEXT 1 
IF Y <> O THEN 1130 
PRINT * PRODUS NOU? (D/M) * 


1040 INPUT A% 


1050 
1055 
1060 
1970 
1080 
1090 
1100 


IF A$ <> *D” PHEN 1130 

REN * SE ADAUGA UN PRODUS NOU * 
H= Mei 

PS(H) = 8% 


PRINT * DATI CONSUMURILE SPECIFICE PROD.BOU * 


FOR i 21 T0N 
PRINT HS(1); 
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1110 INPUT P(H,I) 

1120 NEXT | 

1130 PRINT * MAI DATI REALIZARE? (0/N) 
1140 INPUT A% 

1150 1F'A$ = "D* THEN 930 

1155 MAT C(N) ZER . 

1160 PRINT * DATI CONSUM MATERIALE LA MASA *;S 
1180 INPUT B$(TO),X 

1190 Yy=0 

12Q0 FOR 1 = 1 TON 

1210 IF B5 <> H5(1) THEN 1270 

1220 Y = 1 ? 

1230 7F A(P,I) < X THEN 1260 

1240 ţ =2 

1230 c(1) =xX 

1260 1 =N 

1270 NEXT 1 

1280 IF Y = 2 THEN 1340 

1290 IF Y = 1 THEN 13270 

1300 PRINT * MATERIAL INEXISTENT + 
1310 GOTO 1340 

1320; PRINT * STOC INSUFICIENT * 

1340 PRINT * MAI DATI CONSUM? (D/N) * 
1350 INPUT A% 

1360 1F A$ = "D” THEN 1170 

1370 FOR 1 = 1 TON 

1380 A(S,1) = A(S,L)-C(l) 


1390 NEXT | 

1400 HAT D = ZER 
1410 FOR 1 = 1T0M 
1420 FOR J = 1 Te0N 


1430 D(J) = D(I)+B(LOXP(J,LD 

1440 NEXT J 

1450 NEXT 1 

1460 Y =0 

1470 FOR 1 = 1 TON 

1475 IF D(1) <= C(L) THEN 1500 

1480 PRINT * S-A DEPASIT CONSUMUL LA “;HSil); 
1485 PRINT * MATERIAL CU *;C(1)-D(L) 

1490 Y = 1 

1500 NEXT 1 

1510 IF Y = 1 THEN 10 

1520 PRINT * VATI INCADRAT IN CONSUM SPECIFIC * 
1530 G0T0 10 

1540 SToP % 

1600 REM * CREARE FISIER STOC » 

1610 REM * SE CREEAZA LA MAXIM 100 MATERIALE * 
1615 REH * 20 PRODUSE SI S MESE » 

1620 DIN 0(100),B(20),€(100),D(100) 

1630 DIH A(5,100),P(20,100) 

1540 DIM P$(20,10),H$(100,10) 

1650 REH * SE INTRODUC S$ MATERIALE 2 PRODUSE * 
1655 REM * RESTUL St INIRUDUC PRIN PROGRAH * 


1660 N=5 

1670 H +2 

1680 0 =5 

1690 MAT 0 = ZER 

1700 P$(1) = "PLAN INCL." 
1710 P$(2) = "MONOBLOC" 
1720 M$(1) = "CEARA" 

1730 M$(2) = "MASA AMHBL.* 
1740 H$(3) = "ALIAJ IN0X* 
1750 MsS(4) = "GIPs* 

1760 MAT A = ZER 

770 MAT P = ZER 


1780 REM * CONSUMURILE SPECIFICE * 
1790 FOR 1 =1T0M 

1800 POR J = 1 TON 

1610 READ P(1,J) 

1820 NEXT J 

1830 NEXT 1 

»935 REM * CONSUM SPECIFIC DUPA BAREH * 
1840 DATA 5,10,14,600,60 

1850 DATA 15,0,0,200,60 

1900 60T0 10 

2000 END 
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Programul poate fi utilizat ca model de referință pentru gestiunea stocu- 
rilor la magazii mici-medii, spaţiul de memorie ocupat de datele referitoare 
la magazie depinzind în mare măsură de modul în care sînt codificate mate- 
rialele din stoc. Asocierea unui număr mare de date unui material dat va reduce 
numărul total de materiale ce pot îi cuprinse în tabelele de descriere a magaziei. 
Implicit, numărul maxim de materiale diferite nu poate fi mai mare de 254, 
deoarece interpretorul BASIC nu admite tablouri a căror dimensiune să fie 
mai mare de 254. 


i Pentrujprima lansare se utilizează comanda RUN 1600 care dimensionează 
matricile utilizate. Prin inițializare s-au introdus 5 materiale, 2 produse şi 
consumurile snerifi»e aferente. Prin program se mai introduc restul de materiale 
şi produse. După iniţializare programul se lansează cu comanda GOTO16 
pentru anu inițializa masivele completate cu stocul magaziei centrale, respectiv 
cu stecul meselor de lucru. 


11.6. Balanța de verificare debit-credit 


Programul constituie un exemplu simplu de realizare a unei balanţe de 
verificare. La prima rulare, programul solicită introducerea numărului total 
de conturi și a numerelor de cont pentru care se vor face operaţiile de debit/ 
credit. Se introduc apoi. pentru fiecare număr de cont, debitele și creditele 
pe luna în'curs. Se afișează apoi balanta de verificare pe subconturi ; ; la umple- 


„eri 230 VOM 


rea “craiului; “ atişajul se oprește, putînd fi reluat prin apăsarea Sai taste 
oarecare. După afișarea balanței pe subconturi, se afişează balanta de verifi- 
care pe conturi, ! împreună cu totalurile debitoare, creditoare și pe conturi. 


„Rulările următoare inu mai solicită introducerea numerelor de cont, ci 
doar: debitul ' "și screditn! ra luna curentă. Veriticările se fac începînd cu soldul 
lunii “precedente. Pentru a nu distruge masivul cu soldul lunii precedente, 
lânsarea ulterioară £ a programului se realizează cu comanda GOTO 100. 


EZITA AL IRU OI: 10 PRINT * BALANTA DE VERIFICARE " 
20 PRINT * DATI NR.TOTAL DE CONTURI * 
30 INPUT N 
40 DIM K(ND,C(N),D(N) 

SO DIM R(N),B(N),S(N) 

60 MAT C = ZER 

70 MAT D = ZER 

80 PRINT * INTRODUCETI CONTURILE * 
90 MAT INPUT K 

100 PRINT * INTRODUCETI CREDIT/DEBIT * 
105 PRINT * LUNA CURENTA * 

110 FOR 1 = 1 TON 

120 PRINT K(1);*7* 

180 PRINT “DB:"; 

140 INPUT B(1) 

150 PRINT "CR:"; 

160 INPUT R(I) 

170 NEXT 1 
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180 FOR'1 =: | TON 

190 C(1) = C(LdeRil) 

200 B(1) = DeldeBil) 

210 S(1) a Dero» 

220 NEXT 1 

230 INIT P 

240 PRINT AT(1,1);* BALANTA DE VERIFICARE 
245 B$ = INKEYT% 

250 U = 3 

260 FOR 1 = 1 TON 

270 PRINT AT(U,1);K(L,Stl) 

280 U = Ut 

290 IF U < 31 THEN 350 

300 As = INKEY% 

310 IF A% = B$ THEN 300 

320 Uu=3 

330 INIT P 

340 PRINT AT(1.1);* BALANTA DE VERIFICARE 
350 NEXT | 

360 AS = INKEY% 

370 '1F AS = B% THEN 360 

380 7 = su: 

390 M a INT(K(1)/1000) 

400 INIT P 

410 PRINT AT(1,1),* TOTAL CONT 
420 U : 3 

430 FOR | + 2 TON 

440 1F M <> INT(R(1)/1000) THEN 470 
450 T = Test) 

460 GOro 570 

470 PRINT" AT(U,1);M,T 

480 M  INT(K(1)/1000) 

490 T + Stl» 

S00 U = U+1 

510 1F U < 31 THEN 570 

520 A$ = INKEYS 

530 IF A4% = 8% THEN 520 

ŞA0 u :3 

50 INIT P 

360 PRINT AT(1,1);* TOTAL CONT * 
$70 NEXT 1 

580 PRINT ATLU,19;M,T 

610 A$  INKEYS 

620 LF A% = B$% THEN 610 

630 INIT P 

640 PRINT AT(1,1);* TOTAL BALANTA * 
s30 1:00 

660 U:09 

670 0:90 

680 FOR 1 = 1 TON 

690 M = Meci» 

700 U = U+D(I) 

710 0 = 0+st1) 

720 NEXT | 

730 PRINT AT(3,.); “TOTAL 08: *;U 
740 PRINT AT(5,1); TOTAL CR: *;M 
750 PRINT AT(7,1):"*BALANTA : *;0 
760 ŞTOP 


11.7. Transformarea stea-triunghi şi reciproc 


Programul determină rezistenţele echivalente celor două transformări 
după formulele : 


Ta “Te 
Ta 


Ta2 =Ty +a 


Ta “Tg 


a) Tes =TaIs+ ze 


(transformarea stea-triunghi) 


Tg*Ta 
Ta 


Ta TaFra+ 
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rk—r a A 
b)  ri= ——— (transformarea triunghi-stea) 
Tusea 
10 PRINT CALCUL REZISTENTE ECHIVALENTE * 
20 PRINT 1= SCHEMA ELECTRICA STEA IN TRIUNGHI * 


. 
. 
25 PRINT * 2= SCHEMA ELECTRICA TRIUNGHI IN STEA * 
30 INPUT X 

40 IF X = 1 THEN 210 


SO PRINT * SCHEMA ELECTRICA TRIUNGHI IN STEA * 
60 PRINT * DATI REZISTENTELE IN TRIUNGHI » 

70 PRINT * Rl2 ="; 

80 INPUT A 

90 PRINT * R23 =“; 

100 INPUT B 

110 PRINT * R31 ="; 

120 INPUT c 


130 S = A+B+c 

140 D = (A*C)/S 

150 E = (B*A)/sS 

160 F = (C*B)/S 

170 PRINT * R1 = “;D 
180 PRINT * R2 = ";E 
190 PRINT * R3 = *;F 


200 Srop 

210 PRINT * SHEMA ELECTRICA STEA IN TRIUNGHI * 
215 PRINT * DATI REZISTENTELE IN STEA * 

220 PRINT * Rl ="; 

230 INPUT D 

240 PRINT * R2 =; 

250 INPUT E 

260 PRINT * R3 ="; 

270 INPUT F 


280 A = DrE+(D*E)/P 
290 B = E+Fr(E*F)/D 
300 C = FeD+(FxD)/E 
310 PRINT * R12 = ";A 
320 PRINT * R23 = ";B 
330 PRINT * R3L = ";c 
340 sToP 

350 END 


Se solicită prin dialog tipul transformării și valorile rezistenţelor corespun- 
zătoare. Se afișează valorile rezistențelor echivalente. 


11.8. Dimensionarea liniilor de alimentare în curent continuu 


Se consideră un conductor de cupru cuplat la o sursă de curent continuu. 
De la acest conductor sînt alimentaţi mai mulţi consumatori, fiecare avind 
un consum Pi și o distanță Li de la sursa de alimentare. Secţiunea conductoru- 
lui se deduce pe baza formulei : 


2. 100 
S= AU SPL, 


unde : 


Y= AL este conductivitatea conductorului 

AUY este căderea de tensiune maxim admisă 

U este tensiunea nominală 

p este puterea absorbită de fiecare consumator 

L este distanţa consumatorului față de sursa de alimentare. 
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10 PRINT * CALCULUL LINIEI CONDUCTOARE * 
15 PRINT * DE CURENT CONTINUU SUB » 

20 PRINT * TENSIUNE DE 220 V,DIN CUPRU * 
30 PRINT * DATI NUMARUL DE CONSUMATORI * 
40 INPUT N 

SO PRINT " DATI DI STANTELE DE LA SURSA * 


95 PRINT * IN METRI 

60 DIM LN» 

70 MAT INPUT L 

80 PRINT * DATI! CONSUMURILE * 
85 PRINT * IN UAI * 

90 "DIM C(N) 

100 MAT INPUT C 

110 s=0 

120 FOR 1 = 1 TON 

130 S = Secitomli(l) 

140 NEXT I 

150 $ = S*2*100/(33*5x220*2) 
160 PRINT * $ =» *;s;* Ma *» 
170 STOP 

180 END 


Se solicită prin dialog numărul de consumatori, distanţele de sursă și 
consumurile fiecăruia. Se afişează valoarea secțiunii, considerînd sursa de ali- 
mentare de 220 Ve.c. și prinderea maximă de tensiune s< 3% din tensiunea 
nominală. 


11.9. Determinarea greutăţii materialelor ce intră 
în componenţa unui corp eterogen 


Se consideră un corp compus din două materiale. Fie G creutatea acestui 
corp, cîntărit în aer, şi Ga greutatea sa, cîntărit în apă. Fie pu densitatea apei, 
pl densitatea primului material şi p2 densitatea celui de-al doilea material. 
Rezultă : 


Pa G—G,)—Gp,pi . . . 
; 1= Papa (G—Gu)—GpaPa reutatea primului material 
e: i Papp  £ P 


G2— PiPa (G— Gu) — Gap greutatea celui de-al doilea material. 
Pa (Ps—Pe) 


Şe introduc prin dialog valorile celor două greutăți, precum și densitățile 
fiecărei componente. Se afişează ca rezultat greutatea fiecărei componente. 


10 PRINT " GREUTATEA MATERIALELOR COMPONENTE * 
20 PRINT *” ALE UNUI CORP HETEROGEN " 

30 PRINT ”* DATI GREUTATEA CORPULUI IN AER * 
40 INPUT G1 

SO PRINT ” DATI GREUTATEA CORPULUI IN APA * 
60  INPUr 62 

70 PRINT * DATI DENSITATEA MAT. COMPONENTE * 
80 INPUT R1,R2 

90 REM ” DENSITATEA APEI = 1 * 

100 R3 = 1 

110 VI = (RI*R2*(G1-62)-G1uR3*R1)/(RI*(R2-R1)) 
120 v2 = (RIYR2NAGi n G2)=G1*R3*R2)/(R3*(R1-R2)) 
130 PRINT CORPUL DE sa Oi " GREUTATE * 

140 PRINT * CONTINE ";V1;” DIN MATERIAL ";Rl; 
145 PRINT ”" DENSITATE * 

150 PRINT * CONTINE ";V2, DIN MATERIAL "*:R2; 
155 PRINT DENSITATE * 

160 sroP 

170 END 
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11.10. Dimensionarea grinzilor de beton armat 


Programul determină înălțimea utilă şi aria armăturii unei grinzi de beton 
armat, pe baza formulelor : 


unde : 
hg este înălțimea utilă ; 
a este aria armăturii; 
m este momentul de încovoiere 
| este lățimea grinzii 
ra este rezistenţa armăturii 
rb este rezistenţa betonului 
£ este factor limită=—0,6 
Se introduc prin dialog valorile pantru ra, rb, | și m. Se afișează valorile 
înălțimii utile şi ale ariei armăturii. 
10 PRINT * DIMENSIONARE GRINDA DE BETON ARMAT * 
20 REM * SE CONSIDERA C S | LIMITA : 0.6" 
30 P = 0.6 
40 PRINT * REZISTENTA ARMATURII IN KGF/CM"2 * 


So INPUT A 
REZISTENTA BETONULUI IN KGF/CM*2 * 


c 
80 PRINT * LATIMEA GRINZII IN CH * 

B 

“ MOMENTUL INCOVOIETOR IN KGF.CH * 
M 


140 R = 1/SaR(S) 
= R*SOR(M/(Bx*C)) 
160 Z = M/(AxH*T) 
170 REM * INALTIMEA UTILA * 
180 PRINT "HO =.*;H;” CM" 
190 PRINT "ARIA ARMATURII * *;2;* CM*2 * 
200 sToP 
210 END 


11.11. Calculul! secțiunii elementelor de construcţie 


Programul determină caracteristicile principale ale diairagmelor utili- 
zate în construcţii, pornind de la descompunerea secțiunii diafragmei în drept- 
unghiuri elementare. Se solicită ca date inițiale numărul de dreptunghiuri 
elementare ce compun secțiunea, precum şi dimensiunile unui asemenea drept- 
unghi. Se afişează drept rezultat : 

— aria secţiunii diafragmei ; 

— momentul de inerție ; 

— coordonatele centrului de greutate. 
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10 PRINT * CALCULUL SECTIUNII ELEMENTELOR * 
15 PRINT * DE CONSTRUCTII * 

20 PRINT * DATI NR.DREPTUNGHIURI ELEMENTARE * 
30 INPUT 
40 DI BeND,HtND> 

So PRINT * DATI LATIMEA, INALTIMEA ÎN CH * 
60 FOR Jai TON 

70 INPUT B(J) 

80 INPUȚ H(J)> 


9o NEXT J 

100 D=0 «+ 

10H=0 

120 A =0 

130 1 =0 

140 FOR JI = 1TO0N 

150 K = B(J)mH(J) 

160 L = H+H(J)/2 

170 D = (AXD+KRLOI/(A+RD 
180 A = A+k 

190 1 = 1+(H(3)*9%B849))/12 
200 H = HtJ>+H 

210 NEXT 3 

220 H=0 

230 FOR 3 =1 TON 

240 L = H+h(J)/2 

250 1 = 1+B(J9*H(J)u(L-D)*2 


280 PRINT "ARIA = ";A;” CH"2 * 

290 PRINT "MOMENT „INERTIE = *;1ş* CH*4 * 
300 PRINT “HS = *;D;" CH e 

310 PRINT "HD = “tH-D;* CH * 

320 sroP 

330 END 


11.12. Determinarea momentelor de încastrare perfectă ale 
unei grinzi de beton armat 


Se consideră o grindă de beton supusă atît unei forţe uniform distribuite, 
cît şi unui număr oarecare de forțe concentrate. Se determină valoarea momen- 
tului de încastrare stînga și dreapta. Programul solicită ca date iniţiale : lungimea 
grinzii, valoarea forţei uniform distribuite, numărul total de forţe concentrate 
iar pentru fiecare forţă concentrată, valoarea ei și distanţa faţă de limita stîngă 
a grinzii. Se determină valorile celor 2 momente de încastrare și se afişează. 


10 PRINT * MOMENT DE INCASTRARE PERFECTA * 

20 PRINT * LUNGIMEA GRINZII INM * 

30 INPUT L 

40 PRINT * FORTA UNIFORM DISTRIBUITA IN KGF/H * 
50 INPUT P 

60 T = PxL*2/12 

70 R=T 

80 PRINT * NR.-UL FORTELOR CONCENTRATE * 

90 INPUT N 


100 IF N = 0 THEN 280 

110 DIM F(N),X(N) 

120 PRINT * MARIMILE SI DISTANTELE FORTELOR * 
125 PRINT ” CONCENTRATE FATA DE STINGA GRINZII * 
130 FOR J = 1 TON 

140 INPUT F(J) 

150 INPUT X(J) 

160 IF X(J) > LU THEN 290 

170 NEXT J 

180 FOR J =1T0N 

190 A1 = X(J)7/L 

200 A2 = 1-A1 

210 V = AL*A2*2F(J)xL 

220 T = T+V 

230 V = Al*2A2*F(J)xL 

240 R = R+V 

250 NEXT J 

260 PRINT *MST = *;T;* KGF.M * 
270 PRINT "MDR = *;R;* KGF.H * 
280 SToP 

290 PRINT * ABSCISA GRESITA * 
300 sToP 

310 END 


Optiimizarea consumului de îngrășăminte chimice în agricultură 


11.13. Optimizarea consumului de îngrășăminte chimice 


in agricultură 


12% 


Se pornește de la funcţiile de producție pentru terenuri irigate şi nairigate s 
Ynro =KoaotKaasdN—KaazdN? 
Yama =aotrasAN—a2AN? 


di este doza de îngrășămînt la hectar 
a, sînt parametrii funcţiei de producţie 


10 
20 
30 
33 
40 
so 
Ei 
60 
70 
80 
90 
100 
110 
120 
125 
r30 
135 
140 
145 
150 
155 
160 
170 
i 
19 
200 
205 
210 
213 
220 
230 
240 
250 
260 
265 
270 
275 
280 
290 


, sînt coeficienți de multiplicare 


PRINT * CONSUMUL DE INGRASAMINTE 
PRINT * CHIMICE IN AGRONOMIE * 

PRINT * DATI PARAMETRII AO,AL,A2 
PRINT * A FUNCTIEI DE PRODUCȚIE * 
INPUT A0,A1,42 

PRINT * DATI COEPICIENTII RO,K1,k2 * 
PRINT * DE MULTIPLICARE * 

INPUT KO,K1,k2 

NI 2 A1/(2xABS(A2)) 

N2 » KIxA1/(2*K2mABS(A2)) 

N = N2-N1 

INITP 

PRINT AT(1,194* FUNCTIA DE PRODUCTIE 
PRINT AT(5,1);* Y(NEIRIG) = *; 

PRINT AOy“r";A1; "xDN";A2; *xDN*2* 
PRINT AT(7,1);* YeIRIGAT) = *; 


PRINT KOnAO; *+";RImA1j "xDN" pR2NA2; *xDN+2* 
PRINT AT(9,1);* DOZA HAXIMA DE NEIRIG = *; 


PRINT Ni 
PRINT AT(1L,1);* DOZA MAXIMA IRIGAT e +; 
PRINT N2 

PRINT AT (13,1);* DIPERENTA + *:N 

YI = AO+AIuNI-A2x(N1+2) 

Y2 = KOxAO+KIxAIuN2-K2wA2w (N212) 

Ya Y2-Y1 

PRINT AT(15,1);* MAXIM TEHNIC NEIRIG 
PRINT Yi 

PRINT AT(17,19;* MAXIM TEHNIC IRIGAT - 
PRINT Y2 

PRINT AT(19,1);* DIFERENTA e *;Y 

X1 » Y1-A0 

X2 = Y2-KORAO 

X s X2-x1 

PRINT AT(22,1);* SPORUL MAXIM NELRIG 
PRINT X1 

PRINT AT(23,1);* SPORUL HAXIH IRIGAT 
PRINT X2 

9, = INKEY 

IF" A9 = * * THEN 280 


300 JNITP 


310 
320 
330 
340 

150 
360 
370 
380 
390 
200 
405 
410 
420 
430 
440 
a30 
250 
280 


VINDOU -10,N2+30, -10,Y2+10 

MOVE -10,0 

DRAU N2+30,0 

Hove 0,10 

DRAU 0,Y2+10 

FOR 1=25 TO 2S*INT((N2+30)/25) STEP 23 
HOVE 1, -S0 

DRAU 1,50 

NEXT 1 

O = INT((Y2+10/1000) 

FOR l=1000 TO 100OxINT(Y2*0) STEP 1000 
MOVE -50,1 

DRAU 50,1 

NEXT 1 

A * 80 

B = A1 

C- A2 

FOR K=1T02 


t — EBioreealeulateiul personal aMIG — vol. II 
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490 MOVE 0,0 

S00 FOR L=10 TO L1O»INT((N2+30)/10) STEP 10 
510 Y = ArBel-C*l*2 

520 DRAU 1,Y 

530 NEXT 1 

540 A = KOxAO 

550 B = KiwmAl 

560 C = K2mA2 

570 NEXT K 

580 MOVE N1,0 

590 DRAU NI,Y1 

600 MOVE N2,0 

610 DRAU N2,Y2 

630 As = INKEYS 

640 IF AS = * * THEN 630 
630 REM * CITIRE CONSTANTE * 
660 READ A,B,C,D,E,F 

670 INITP 

680 DIM H(10,2) 

690 MAT M = ZER 

700 2 = 10 

800 X =0 

810 UINDOU -10,300, -30,10000 
820 MOVE -10,0 

830 DRAU 300,0 

840 MOVE 0,-10 

850 DRAU 0,10000 

860 FOR 1 = 1 TO 180 STEP 25 
870 MOVE 1, -S50 

880 DRAU 1,50 

870 NEXT 1 

900 FOR 1=1000 TO 8000 STEP 1000 
910 MOVE -S0,1 

920 DRAU 50,1 

930 NEXT 1 

940 FOR 2 = 10 TO 100 STEP 10 
950 x =0 

960 GOSUB 2000 

970 U = 2/10 

980 MOVE X,Y 

990 M(U,Ll) =X 

1000 M(U,2) =Y 

1010 FOR X = 10 TO 180 STEP 10 
1020 G0SUB 2000 

1030 DRAU X,Y 

1040 IF Y < M(U,2) THEN 1070 
1050 M(U,Ll) =X 

1060 M(U,2) = Y 

1070 NEXT X 

1080 M(Z,!10) =N 

1090 NEXT Z 

1100 MOVE M(1,1),M(1,2) 

1110 FOR 1 = 2 T0 10 

1120 DRAU M(1,1),M(1,2) 

1130 NEXT 1 

1140 STOP 

2900 Q = Ax(Z"*D) 


2010 V = Bn(2Z*E)xxX 
2020 WU a Cx(Z*F)n(X"2) 
2030 Y = Q+v-u 
2040 RETURN 
2050 DATA 36.1,17.11,0,796 
2060 DATA 1.1087,0.11858,-0.60899 
2070 END 
Be determină doza maximă de îngrășşămînt pentru teren neirigat şi teren 
irigat. Se determină apoi maximul tehnic de producţie şi sporul maximi în cele 
două condiții de lucru. e ze 
Se vizualizează graficul funcţiilor de producţie în condiţiile de irigare 
şi neirigare (ccoord. x=doze de îngrășămînt în kg/ha ; coord. y producţia 
medie în kg/ha). Particularizînd pentru funcţiile de producţie caracteristice cul- 
turilor de grîu, avem (vezi liniile 2050 și 2060 din program) 


Y =36,1 NB11087417,11 NBO11855 AN—0,796 NB=0,000%, AN? 


În baza acestei formule se trasează graficul producţiilor medii de griu, 
în funcţie de notele de bonitare ale terenului agricol. 
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Modificarea liniilor 2050, 2060 permite calculul funcţiei de producție 
pentru alte tipuri de culturi. 


11.14. Calculul volumului rezervorului de compensație 
pentru reţeaua de apă potabilă 


Variația consumului de apă pe parcursul unei zile se determină în baza 
debitului înregistrat la fiecare oră. Considerăm că alimentarea de la reţeaua 
de apă se face cu un debit mediu constant ; în acest caz, rezervorul de compen- 
saţie va trebui să acumuleze apa necesară consumului în orele de vîri. 

Programul solicită mai întîi introducerea valorilor celor 24 de 
debite orare. Se determină apoi debitul mediu, pe baza formulei : 


Rezultă volumul rezervorului de compensație : 
2 
Vr= 3, (Di—Dm)*((SGN (Di—Dm)+1)/2) 
i=l 


Be afișează consumul mediu și volumul rezervorului de compensație. 


10 PRINT * REZERVORUL DE COMPENSATIE * 
20 DIM D(24) 


30 PRINT * ga CONSUMURILE PE 0RE * 
40 mA Fo i 


60 FOR a 1 TO 24 


110 FOR 1 = 1 TO 24 

120 IF (D(1)-X) <a O THEN 140 

130 V = V+(D(1)-X) 

140 NEXT 1 

150 PRINT " CONSUM MEDIU *;xX 

160 PRINT " VOLUMUL REZERVORULUI *:v 
170 STOP 

180 END 


11.15. Studiul unui filtru „trece-jos“ 


Fiind dat filtrul RC „trece-jos“ din figura 11.3, ecuaţia va fi 
U, (t)= Uz (6)-+-RC-E. 
Ecuația poate fi aproximată cu: 
RC 
U, (n)=Uz (n)+ A Uz (n)—Uz (n—1)] 


unde RC/At="T este constanta de timp normată a filtrului. Rezultă relația 
de recurenţă + 


Us (n) = 0 + e Ua(n—1) 


1FT 
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Fig. 11.3. Filtru RC „trece-jos“, 


Forma semnalului de intrare este definită în cadrul programului. în liniile 
150—180, obţinîndu-se la ieşire un semnal ca în figura 11.4. Programul solicită 
introducerea constantei de timp normate şi a valorii iniţiale a semnalului de 
ieşire Us. Se trasează graficul suprapus a celor două semnale, obţinindu-se 
diferite forme ale semnalului U în funcţie de constanta de timp T | regimul 
tranzitoriu poate fi observat cu ușurință pe grafic. 


10 PRINT * STUDIUL PILTRULUL * 
20 PRINT * DATI CARACTERISTICA T « 

30 INPUT 7 

40 PRINT * DATI VALOAREA INITIALA U2 * 
SO INPUT V2 

60 INITP 

70 WINDOW =10,50,-1,2 

80 HOVE -10,0 

90  DRAU 50,0 

100 HOVE 0,-1 

110 DRAU 0,2 

120 vi =1 

130 HOVE 0,ut 

140 FOR X = 1 T0 So 

150 1F SGN(X-INT(X/10)*10-5 <= 0 THEN 190 
160 Vi =0 | 
170 G0T0 190 

180 Ui =1 

190 DRAW X,UL 

200 HOVE X-1,v2 

210 V2 = Ui/(î+T)e(T/(1+T))xU2 

220 DRAW X,U2 

230 HDVE X,U1 

240 NEXT X 

250 top 


ax0. EXD 


Fig. 11.4. Semnalul la ieșirea filtrului „trece-jos”. 


11.16. Calculul salinității unui canal de ecluză 


Programele rezolvă determinarea salinităţii apei într-un canal de ecluză 
ce leagă două ape cu salinităţi diferite. Se introduc datele iniţiale și în diferite 
ipoteze de lucru se obține numărul de ecluzări necesare. 
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SPRINT “PRGRMHI1” 

10 REh."CALCULUL SALÂNITATII CANALULUI» 
45 REM PIPOTEZA 1 = DIFERENŢA Va 0* 
20 REM "CITIRE DATE INITIALE» 

36 READ CICaC3,DpHirH2eArVe€ 

35 REN PCALCUL COEFICIENII” 

49 Dizb/v 

$9 Da=D/(AmHt) 

69 D3sD/(As(Hi+H2)) 

65 REM "CCHSTANTE” 

70 Xs1-D3 

80 Yzi=b2 

90 Zz1/(XxY) 

95 REM "SALINITATE ADMISA SA Se 8* 
190 A=Cie(1+2)+C2/X+C3e(ioD3nY)az 
110 B=(C3eCaeCin(DanCa2+D3aYeC3) az 
120 K=A/2 

150 O=Kek=B 

22v Ssk=SaR(D) 

225 REM "SALINITAȚE INITIALA SA Se M* 
230 WsDanCa2+SnxeY+D3eyaC3 

239 REM AVINCIMEA REMANENȚA» 

2uu HeXa(Seci)/(C2=ct) 

285 REM “VARTATIA SALINITATII” 

254 N=0 

269 1=C1 

270 WaC1 

280 NzN+1 

290 VsHa(l=)/Xen 

300 j=DzeCa-DonYa(Veh)evay 

310 H=DiavelieDi)ani 

315 REM "VERIFICARE LIMITEne 

320 IF I>=M=E THEN 36 

339 IF V>s3=E THEN 560 

340 IF W>=C3sE THEN 309 

350 G0T0280 

364 PRINT " NUMARUL DE ECLUZARI "iN 
370 ST0P 

375 REM DATE INITIALE" 

380 DATA V,15ei17p0,5 

390 DATA cioc, 7,9 

409 DATA 6000,36,0E6 

U10 DATA 0.21 

3060 END 


SPRINT “PRGRMa2n 

10 REM "CALCULUL SALINIȚATII CANALULUI* 
1$ REM “TPOIEZA 2 = DIFERENTA V > 0" 
29 REM "CITIRE DATE ÎNITIALE* 

30 READ CieCasCSeDertle2pAsVieVvasE 
35 REW "CALCUL COEFICIENŢII” 

09 Di=0/vi 

50 DasD/(AaH1) 

60 0320/(An(HieH2)) 

65 Dâzva2/vi 

70 DSe(ieDad)aci=va9 

72 REM "SALANITATE ADMISA SA Sa 9* 
75 Ss((1eD5)ac3DanCi9/(Die(i»D4)) 

0 ŞisDa4C2+S*(1-D2)2 (1D3)+D3s(1eDa)nc3 
90 Re((im05)n(1=03)a(C3eC1))/(DintleDad)a(Caeci)> 
95 REM "VARIATIA SALINITAIII” 

1909 N=0 

110 1=c2 

120 niz=c1 

123 Wasti 

130 N=N+1 

140 V=Ra(InA2)/(1=03)+n2 

150 I=D2ata-D3a(inDe)e(Ven2)+vatl=ba) 
160 W2=(i=Da)aDlay+DSahnyeDaata 

179 WIsDinVeci=bi)an2 

175 REM * VERIFICARE LIMITE" 

184 IF N<10h THEN 130 

185 IF ]>=SieE THEN 220 

190 IF v>=9=E THEN 220 

200 IF wa>=C3<€ THEN e29 

205 GOTO 130 

210 REM "AJUNS LIMITA" 

220 PRINT Nela Veh 

230 stop 

290 REM "DATE INIȚIALE” 

390 DATA 0,15ri?7p0,5 

310 DATA 21020,7,9 

320 DATA 8000, 300E6,12,0£9 

330 DATA v.0i 

349 END 
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S PRINT "PRGRM.3"* 

10 REM "DISTRIBUTIA SALINITATIT IN CANAL" 
15 REM "IPOTEZA 1 = DIFERENTA V n 0" 
29 REM "CITIRE DATE INITIALE» 

30 READ Ci,Ca,C3,DeHIaH2,AsVoLeTeVIrEeNI,N2 
35 REM "CALCUL COEFICIENȚI" 

99 DinD/v 

45 D2=D/(AmHi) 

50 D3=D/(An(H1+H2)) 

55 DâeLy/vi 

60 Dbabq/T 

65 DIM K(2500,L(250) 

70 Ysi=Da 

80 X=1-03 

90 Z=i/(X=Y) 

95 REM "SALINITATEA AOMISA ÎN SA Sa 3» 
100 AsCinti+Z)+C2/X+C3n (LoDăeY)az 

140 Bs(C3eCa-Cin(D2nC2+D3myaC3))az 

120 tzA/a ; 

130 Mausu=a 

290 S=U-SuR(M) 

220 REM "SALINITATEA INITIALA SAS e M» 
230 Ms=DanCa+SmxaY+D3evaC3 

235 REM PADINCIMEA REMANENTA = H” 

2U9 Hzxa(sat1)/(Ca=C1) 

245 REM "VARIATIA SALINITAȚII* 

250 J=i 

260 hay 

270 HAT K=ZER 

280 MAT La=zER 

290 Iaca 

300 wW=ci 

310 Nae 

320 VsHe(len)/XeH 

330 IaDanca=D3eYta(Ven) ave 

340 piaDinVeli=Di)au 

350 IF N<N4 THEN 310 

360 K(l)ay 

370 L(J)zw 

380 J=J+i 

390 IF Je=D5 THEN 310 

400 weL(j 

410 Usu 

420 FOR J=2 T0 05 

430 MzL(J=1)e(D/(Ve(DSeJei)))a(k (yen) 
440 IF M<u IHEN 455 


450 ua Li 

455 us) 

460 HEXT J 

465 REM "TIPARIRE VARIATIA MAXIMA» 
470 PRINT U 


475 REM "VERIFICARE LIMITA 
480 IF U>C3=E THEN 510 
490 lisNi+N2 

500 GOTO 25v 

510 SToP 

590 REM "DATE INITIALED 
650 DATA 0,15,17,6,5 
610 DATA 21000,7p,9 

cae DATA b000,36,0E6 
630 DATA 57600,3600,1 
640 DATA 9,01,400,100 
650 END = 


11.17. Calculul hidraulic al ecluzelor 


Programele determină caracteristicile hidraulice principale ale unei eclu- 
ze, funcţie de condiţiile de evacuare a apei. 
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S PRINT *PPGRAMS* 

10 REM CALCULUL HIDRAULIC AL ECLUZELOR* 
15 REN EVACUARE IN BIEF. AVAL" 
20 REM "CITIRE DATE INITIALE" 
30 READ A3,H,AL,CâsRI,TIpA2,C2,R2,Ta2,VvsE 
35 D=h 

ao I=0 

45 T=0 

se T3=0 

S5 1520 

"6 J=20 

69 L=0 

70 B=SQP(2n9,81) 

75 ua2=c2 

80 N=c(A1/A3)e8eJ 

85 uz(Az/A3)aBeJ 

90 uiz0 

95 p=o 

100 z=0 

130 Isle 

140 TeTel 

156 IF T>Ri THEN 219 

160 MelaJaCi/R1 

170 Uis(LeM)/2 

180 L=M 

190 GOSUB ace 

200 GUTU 130 

210 IF T3<>0 THEN 250 

220 Ui=ci 

230 GOSUbW ave 

„200 GUTU 13r 

250 L=Ce 

2bo TuzT3+Te 

27w Ms(Ta=taJ)aC2/Ta 

280 Uaz(LeM)/e 

285 121" 

290 T=1+J 

295 IF 1>1u THEN 520 

300 L=M 

305 GUSUE uon 

31 GUTO 272 

329 u=0 

330 k=30P(J)=CteAlaba(IeJ=T9)/(ara3) 
340 Qăzci A lnueSOR(k) 

345 9z0=P 

350 PRINT I,G3sv 

360 IsI+t 

370 T=T+J 

300 IF 0>E THEN 330 

399 sTor 


395 RE "SUbPROGRAM CALCUL LTERATIV SARCINA” 


400 RzNeUiaSuhtu=P/2)o)nUze3UR (ne (DP 7/2)» 
430 IF AB3(h=P)eze THEN 449 
“420 P=R 

439 GOTv ov 

440 PsR 

“445 REM "DIFERENTA DE SARCINAR 
450 D=D=R 

455 REM "vEslT AFLUENȚI 

ue? QezuzeAorurSGk(H=) 

465 REM "0FWIT EFLUENT? 

470 Q3zUl*Aimd*SQR(D) 

475 REM “"vULUMUL EVACUAT» 

189 X=(01442)/2 

499 xaxaJ 

495 REM "SARCINA ECLUZA» 


500 2s2Z+X 

S10 PRINT 1,2,02,03,C2,D 
520 Qizue 

"930 IF zes 5,9av THEN 558 
Sup-T3=1 

550 RETURN 

555 REM "DATE INITIALA" 
esp DATA 20v0,1,7$ 

610 DATA 6,41,0,5,180,120 
620 DATA 8,75,2.65,369,120 
"630 DATA 110560,0,01 

“Bup END 


135 
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SPRINT *PRGRHo* 

10 REM "CALCUL HIDRAULIC AL ECLUZEI» 
15 REM "EVACUARE IN BIEF AVAL* 
20 REM "CUNDIȚIE STATIONARE 3 A 8* 
25 REM "CITIRE DATE INITIALE» 
30 READ Ade Ale CieRie Tie A2eCaevet 
ao Dan 

45. lao 

59 fad 

55 T3av 

60 T5=0 

45 J=a20 

70 L=0 

75 B=SAR(2n9,81) 

80 ua2=c2 

85 Nz(AL/AD)eiaJ 

99 Dz(A2/A3)eBeJ 

99 0120 

120 P=0 

105 zZ=0 

139 Isi+i 

140 T=T+J 

150 1F T>R1 THEN 210 

160 MsIwJeC1/R1 

179 Uia(Leh)/e 

189 L=M 

194 S0Sub uoo 

206 G0T0135 

210 VizC1 

215 uz) 

229 C=Q3-02 

230 T3zT 

240 RaNeCIe3UR(u=P/2)eOaCoRSGk (He (P/299 
250 0=D=R 

260 Q3=CImAlniaSGR(D) 

279 K=(03=t)/(AzeBeSQR (H-0)) 
289 Ca=k 

290 P=R 

300 IF ABS(H=P)>E THEN 249 

310 GOSUB dud 

320 Iz1+i 

330 Tele 

340 LF U2>E THEN 240 

350 U=b 

355 R=BUR(UD=CimA Laba (IaJeT3)/ (2x43) 
360 Q3=CieAlndeSOR(R) 

365 DazD=R 

370 PRINT 1,Q03,0 

375 I=1+4 

380 T=T+J 

385 IF D>E THEN 355 

399 stop 

395 REM "SUBPRUGRAM CALCUL ITERATIV SARCINA? 
409 R=NaUIn3NR (Vb /2)=O0aU2x30R(he(D=P/2)) 
410 1F ABS(a-b)<zE THEN 449 
nad P=R 

439 vOTOă00 

40 P=R 

GUS REM "DIFERENTA DE SARCINA? 
450 0zD=R 

455 REM "DEBIT AFLUENȚI 

460 uazua*A2nBaSQR (HD) 

65 REM "DEAIT EFLUENȚI 

470 Q03=U1sAL+ă*SO0R(D) 

475 REM "VOLUMUL. EVACUAT» 

4809 X=(04+02)/2 

490 x=XaJ 

495 REM "SARCINA ECLUZA» 

509 Z=7+X 

510 PRINT 1,2,02,U3,C2,9 

920 Qi=q2 
930 RETURN 
590 REM "DATE INITIALE» 

be9 DATA 2900,1.75 
610 DATA 6.91,0.5,180,129 
620 DATA 8.75,0.65 
639 DATA 14200,0.04 
649 END 


SPRINT 'PRGRM?"* 

10 REM "CALCUL HIDRAULIC AL ECLUZEI” 
5 REM "EVACUARE IN BAZIN SUBTERAN* 
29 REM “CITIRE DATE INITIALE» 

38 READ A3eriteHa,ZeHeSsCaAteCIRieTieAaeCa, Ra, T2eVeE 
35 REM "INITIALIZARI* 

49 DiaHj 

ai Ino 

45 Tao 

59 T3=0 

55 T5s0 

69 Jz20 

65 La=0 

70 B=SOR(2e*6,81) 

75 x=p 

BO NaCAL/AS)nBa) 

85 Os(A2/A3)aBaJ 

90 Q1z0 

95 Pz0 

100 Hi=Hi+hH2+2 

195 Fa 

110 Da=Ha2 

115 2=9 

150 Izl+i 

135 TsTeJ 

140 IF T>R4 THEN 200 

145 MsIaJaC1/R4 

150 Via(L+m)/a 

155 L=u 

160 IF 1>R2 THEN 490 

165 YalaJsCa/R2 

179 V2=(X+Y)/a 

175 X=y 

180 GOSUB 490 

185 GOTO132 

190 ua=ca 

195 GOTO180 

200 IF T3<>0 THEN 230 

295 Uisci 

210 ua=ca 

215 GOSUB 809 

220 G0T0130 

230 Xx=ca 

235 Tu=13+T2 

240 y=(TarlnyJ)aca/T8 

245 Vaz(kwY)/e 

259 [si-i 

255 TaT+J 

260 IF Ț>Tu THEN 289 

265 X=Y 

270 GOSUB 406 

275 GOTOa43 

280 U=01 

290 R=SQR(U)eCinAlaBre(laJ=T) /(onA3) 
300 Q3=CinâimBeSUR(R) 

310 Di=DioR 

320 PRINT 1,093,01 

339 I=1+i 

349 T=TeJ N 

350 1F D1>E THEN 299 

360 stop 

390 REM "SUBPROGRAM CALCUL ITERATIV SARCINA" 
400 RaNaUjeSQR(Dl=P/a)UnU2S0R (Hie(Di=P/a)=(Da=f/233 
495 Wz (Hou (24D2+F))«(SeCa(2nD2+F)) 
419 GEU24A24+BeSUR (Hi (DimP/2)=(va=F/2))a9/n 
qa0 1F ABS(PeR)<sE THEN a4bv 


130 PR 
40 Fr6 
450 0070 426 | 
969 PaR 
479 P=G 
475 REM "DIFERENTE DE SARCINA" 
480 DiabieR 
499 Da=D2=6 
492 REM "DEBIT EFLUENT? 
095 033 UieAleO*SOR(Di) 
497 REM "DEGI AFLVENTA 
S90 0azUzsA2aBa50R (Hi=Dleb2) 
S05 REM VOLUM EVACUATE 
510 Kstfditu2)/2 
20 KakaJ 
525 REM "SARCINA ECLUZA" 
530 Zuz+k 
Sup PRINT 1eZe02,03,C2,Di 
550 91z0a 
S60 IF 2s=20,9nV THEN 589 
570 T73=7 
S09 RETURN 
€d0 DATA 2000,1,75 
610 DATA 701.5 
t20 DATA 79,10 
650 DATA belle 0 5r 180,120 
650 DATA 8475p0,65,36i, 120 
630 DATA 1190070.01 
&b0 END 
922 


Capitolul 12. | Microcalculatorul personal aMIC 
în procesul de învăţămînt” 


Încercările mai vechi de utilizare a calculatoarelor în procesul de învă- 
ăm înt s-au bazat pe folosirea terminalelor de tip display, cuplate la un calculator 
central. Deși utile, sistemele nu s-au extins în învățămîntul liceal, chiar în 
ţările avansate industrial, datorită costurilor lor ridicate. 

Apariţia calculatoarelor personale permite abordarea acestei probleme de 
pe noi poziţii, deoarece aceste calculatoare pot fi folosite de către elevi, atit 
în şcoală, cît și la domiciliu. Facilităţile hardware şi software de care dispun 
calculatoarele personale permit cuplarea lor la un calculator central, dotat cu 
o bază de date (cunoștințe). În acest context asistarea procesului de învățămînt 
de către calculator capătă noi dimensiuni. 

iu AI | 
Sa, 
12.1. Modalităţi de integrare a calculatorului în procesul de pre- 
dare-învăţare, locul și rolul acestuia în asistarea procesului 
de învăţămînt 


Asistarea procesului de învățămînt cu calculatorul. Această problemă 
este de dată recentă, dar de mare perspectivă și cu consecinţe pozitive 
pentru optimizarea predării-învăţării, pentru integrarea învăţămîntului cu 
cercetarea, cu producţia, cu viaţa. 

Este cunoscut faptul că în ultimele două decenii, colaborarea dintre 
informaticieni, constructori de calculatoare și specialişti din domenii ale instruc- 
ţiei şi educaţiei a permis iniţierea unor programe concrete privind folosirea 
calculatoarelor în procesul de învăţămînt. Ca urmare, au fost concepute, reali- 
zate și perfecţionate variate limbaje de programare, cu ajutorul cărora să se 
poată edifica autoinstruirea automată, să fie prezentate la clasă lecţii, ori 
secvențe ale acestora, în sprijinul optimizării procesului de predare-învăţare. 
În consecință, psihopedagogiei i-a revenit sarcina edificării unei metodologii 
care să asigure eficienţa asistării procesului de învățămînt cu calculatorul. 

Conceptul de asistare cu calculatorul a procesului de învățămînt include 
atît predarea cu calculatorul a unei lecţii de comunicare a noilor cunoștințe, 
de aplicare, de consolidare ori de sistematizare a acestora, cît și verificarea 


* Cu orientare spre învățămîntul mediu. 
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automată a unei lecţii sau a unui grup de lecţii, a unei anumite discipline şco- 
lare la finele unui trimestru sau an școlar, a unei anumite programe școlare 
în cadrul examenelor de absolvire sau de admitere. Tot în cadrul „asistării“ 
este inclusă și prezentarea sau verificarea cu calculatorul a unor secvenţe ale 
lecţiilor desfășurate după metodologia clasică. 


Calculatorul devine un auxiliar al procesului de învățămînt. 


Tehnica instruirii cu calculatorul. Instruirea cu ajutorul calculatorului 
se realizează fie în cadrul așa-ziselor „clase automatizate“, în care lecţia se deru- 
lează secvenţă cu secvenţă pe ecranul de la pupitrul fiecărui elev, fie în cadrul 
laboratoarelor de matematică — mai ales, pentru prezentarea de la catedră, 
prin intermediul ecranului, a unor secvenţe ale lecţiei clasice. O clasă automati- 
zată dispune de un calculator și mai multe terminale (în jur de 30) care recep- 
ţionează mesajele pe ecranul individual. A 


Predarea lecţiei prin intermediul ecranului se realizează printr- o suece- 
siune de imagini, numite „imagini-ecran“, care afișează lecţia, derularea lor 
fiind dirijată de către profesor — în concordanță cu normele psihopedagogice 
ale procesului de instruire la virsta şi în cadrul obiectului predat. 


RTR i 


Instruirea cu ajutorul calculatorului se poate însă realiza Şi în afara 
schemei clasice a procesului de învățămînt. Elevul, studentul, sau orice altă 
persoană interesată poate beneficia, într-un anumit cadru, de posibilitatea 
autoinstruirii automatizate. Aceasta se realizează fără profesor, activitatea sa 
fiind însă materializată în lecţiile afişate pe ecran. Dialogul între maşină şi 
cel care învaţă singur se realizează cu ajutorul unei console legată de calculator, 
aceasta fiind construită dintr-o claviatură alfanumerică și din ecranul semnalat 
mai sus. 

Lecţia, sau grupul de lecţii, sînt stocate în memoria calculatorului şi cu 
ajutorul seftware-ului sînt afişate treptat, imagine cu imagine, pe ecranul 
consolei, furnizind astfel materialul de învăţat. 


"” în cadrul acestei instruiri elevul îşi poate regla singur ritmul de afișare 
a imaginilor pe ecran ; el își poate întrerupe pregătirea în orice moment al lec- 
ţiei, reluînd-o de la secvenţa la care s-a oprit, pe baza „recunoașterii“ sale de 
către calculator. Această posibilitate de „recunoaștere“ permite folosirea în 
timp a aceleiași lecţii de către mai mulţi elevi, zi 

Pee. În lecţiile predate cu ajutorul calculatorului sînt prevăzute și exerciţii 
de control, răspunsurile putînd fi adeseori selectate dintr-o listă de variante 
afişată pe terminal. Metoda folosită în acest caz este, oarecum, similară învă- 
țămintului programat. În cazul că lecţia urmărește testarea cunoștințelor, atunci 
fiecărei imagini-ecran i se asociază una sau mai multe întrebări. Răspunsurile 
la întrebări sînt cotate cu un anumit punctaj, acesta depinzind de calitatea 
răspunsului şi de timpul în care a fost dat. 


i 


Ta dialogul dintre mașină și cel care învaţă se folosește şi funcţia de 
„help“ a calculatorului. Prin aceasta sînt puse la dispoziția utilizatorului, sub 
formă de imagini-ecran, comentariile și explicaţiile necesare integrării și însușirii 
corecte a unor noțiuni — fără de care lecţia nu poate continua. Evidenţiem, 
cu acest prilej, „posibilitatea“ mașinii de a detecta imediat eroarea în în- 
sușirea unei secvenţe a lecţiei și de a facilita remedierea acesteia prin comenta- 
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riul făcut şi indicarea informaţiilor suplimentare necesare continuării instruirii. 
Cel care învaţă poate trece la secvența următoare a lecţiei numai dacă a răspuns 
corect la întrebările sau exerciţiile propuse, interacțiunea dintre utilizater şi 
sistem realizindu-se permanent pe bază de dialog. 


Calculatorul didactic poate îi înzestrat și cu „posibilitatea“ de a memoriza 
performanţele celui ce învaţă : timpul necesar pentru răspuns, nota obţinută, 
întrebările la care frecvenţa răspunsurilor slabe este mare etc. În acest mod sînt 
furnizate fie elevului, fie profesorului, o serie de date pedagogice individuale, 
sau caracteristice unei anumite populaţii școlare, care sînt necesare optimizării 
acestor programe și lecţiilor recapitulative sau de control curent ce se vor 
organiza. 

Consecințe pedagogice ale asistării lecţiilor cu calculatorul. Folosirea calcula- 
torului în şcoală oferă învăţării lecţiei noi posibilități de dezvoltare şi de eva- 
luare. Așa, spre exemplu, prin intermediul consolei pot fi simulate pe ecran 
procese şi fenomene în evoluţia lor, unele experienţe greu accesibile laboratoa- 
relor școlare fie datorită costului lor prea ridicat, fie pericolelor existente, 
protecţiei muncii şi a mediului înconjurător, fie depărtării acestora în timp 
sau în spaţiu etc. 

Ca o nouă componentă a tehnologiei învățămîntului, folosirea calculatoa- 
relor în munca instructiv-educativă va lărgi aria de posibilităţi şi de funcţionali- 
tate a laboratoarelor şcolare, în beneficiul tuturor disciplinelor de învățămînt 
care folosesc tehnică de calcul sau de reprezentare. 


Cu ajutorul calculatorului poate fi optimizat randamentul. predării prin 
prezentarea cu ajutorul ecranului a unei largi varietăți de exemple sau de mo- 
dele asociate unor secvenţe ale lecţiei. Toate acestea concură la adîncirea sau- 
lărgirea orizontului noţiunilor predate, adeseori extrapolîndu-le dincolo de obiec- 
tul predat : în tehnică, în economie, în ştiinţă, în practică etc. În acest mod 
s-ar putea vorbi despre o „dilatare“ a sferei aplicative a noţiunilor predate, 
precum şi de o „comprimare“ a timpului necesar însușirii și aplicării creatoare 
a noţiunilor științei. Acest aspect poate conduce la stimularea inventivităţii 
şi aplicativităţii, a spirirtului participativ şi anticipativ al celui ce învaţă. 

Folosirea calculatoarelor ca mijloace de învățămînt va avea, desigur, 
consecinţe importante asupra formării intelectuale a tinerelor generaţii în 
spiritul autoeducaţiei — și, prin aceasta, al educaţiei permanente. În această 
activitate formativă vor fi stimulate toate componentele gîndirii logice în 
sens larg: gîndirea logico-deductivă, inductivă, analogică, ... cu accent pe 
gîndirea euristică. Va fi astfel stimulată mai bine şi problema orientării profe- 
sionale a tineretului, capacitatea acestuia de reciclare rapidă pentru sectoare 
de muncă „înrudite“ profesional. Fireşte, pentru atingerea acestui ţel, considerăm 
că nici disciplinele tehnologice și nici atelierele-școală, prin şi în care elevii 
trebuie să înveţe să producă la nivelul tehnicii contemporane, nu trebuie să 
rămînă în afa a folosirii calculatorului și a tehnicilor de calcul ale producției 
moderne. Prin aceasta s-ar putea realiza mai bine şi componenta tehnică a edu- 
cației multilaterale a personalității umane. 


Desigur, progresele realizate astăzi pe linia dezvoltării şi a ieftinirii circui- 
telor integrate, între care microprocesoarele ocupă un loc important, vor per= 
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mite construirea pe scară tot mai largă a unor echipamente așa-zise de ''uz 
personal”, numite şi calculatoare personale (individuale). Acestea pot [i folosite 
şi în procesul de învăţămînt, intrind — pentru! început — în zestrea labora- 
toarelor de matematică (de ex.), în calitate de auxiliar al predării, al verificării 
cunoştinţelor, ..., al învăţării. 

Dar pentru integrarea calculatorului în familia mijloacelor de învățămînt, 
profesorului i se cere să stăpinească, în afara specialităţii sale, un volum apre- 
ciabil de cunoștințe din domeniul informaticii, un limbaj de programare a lec- 
ţiilor sale, cum și o mare varietate de tehnici pentru realizarea desenelor și a 
exerciţiilor din lecţiile sale curente, de sinteză sau de control etc. Se între- 
zăreşte de aci necesitatea acestor cunoştinţe, cum şi a unor deprinderi tehnice, 
în pregătirea generală a întregului personal didactic din învățămîntul secundar. 
Acestea se pot obţine pe baza unor programe speciale, atit în pregătirea uni- 
versitară a cadrelor cît şi în perfecţionarea postuniversitată. Mai mult, pentru 
folosirea calculatorului va fi necesară o pregătire generală a întregului tineret 
— în cadrul noilor programe ale învăţămîntului liceal. Firește, este necesar 
ca — în perspectivă — să dispunem de limbaje de programare foarte simpli- 
ficate, ameliorînd astfel eforturile utilizatorilor pentru însuşirea lor. 


Trebuie recunoscut că nici pentru elev nu este chiar atît de simplă și de 
uşoară pregătirea individuală cu ajutorul calculatorului. Și acestuia îi este mai 
uşor dacă poate primi cunoștințele în limba sa proprie, dacă poate "conversa”” 
cu maşină într-un limbaj natural — nu artificial. În plus, maşina care serveşte 
autoeducaţiei automatizate nu poate dispune de prea multe mijloace pedago- 
gice, în afara celor ce decurg din evidenţierea reușilei lu invățătură, sau a 
semnalării insuccesului si trimiterea la întrebări şi materiale ajutătoare. 

ste de apreciat faptul că, însuşindu-şi cunoștințe în faţa coiisolei, elevul 
învaţă singur şi sigur, adeseori în ritm optim propriu, fără emoţii şi fără pertur- 
bări ale comportuiuentului de către diverșii factori legaţi de mediul său încon- 
jurător. El este scutit de emoțiile care apar atunci cînd se vede “urmărit” de 
către profesor, sau de către colegii săi de clasă (deşi, aceste emoţii pot avea 
frecvent şi un rol pozitiv asupra personalității sale). 

De asemenea, în faţa consolei elevul primește obiectiv și cu optimism 
„nota“ acordată răspunsurilor şi deci pregătirii sale ; învaţă de aici să-şi apre- 
sieze calitatea și durata pregătirii, performanţele atinse și, mai ales, învață 
să-și mobilizeze resursele de energie și de voinţă pentru o nouă calitate a 
muncii sale. 

După cum se vede, științei învățării i se circumscrie un nou domeniu în 
care cercetarea pedagogică interdisciplinară va fi solicitată foarte mult. Absența 
acesteia poate frîna accesul calculatoarelor în domeniul învățămîntului. 


Încă de pe acum au apărut o serie de întrebări în legătură cu așa-zisa 
“ înstrăinare” a individului ca urmare a unui învățămînt automatizat. 


Noi considerăm că un învățămînt complet automatizat nu poate exista, 
problema ”'înstrăinării” pierzîndu-și astfel suportul pe baza căruia a fost lansată, 
Practica va fi, desigur, în favoarea folosirii tehnologiilor celor mai avansate 
şi în domeniul învățămîntului, atît dezvoltarea tehnicii cît şi a științei educaţiei 
fiind strîns legate de dezvoltarea întregii societăţi. Or, societatea contribuie 


149 Microcalculatorul aMIC în învățămînt 


nu numai la umanizarea tot mai înaltă a personalității umane, ci și a tehnicii, 
a matematicii chiar, a mijloacelor de învățămînt și educaţie. Mai mult, există 
şi o întoarcere “'reflexivă : tehnica, matematica, ..., au la rîndul lor un rol 
tot mai mare în umanizarea omului. 


12.2. Modele de lecţii sau secvenţe ale acestora pentru instruirea 
asistată de calculator (LAC) a matematicii în liceu 


i. Tema. Rezolvarea sistemelor de două ecuaţii de gradul 1 cu două necunoscule (lecţie de reca- 
RE EA ARE pitulare” ținută în în laboratorul de matern matemalicăţia ia începutul clasei a IX-a) a) 
20 7 N INN OO e i ia Ra 

În această lecţie s se e Urtarește ca elevii să 'alcătuiascăfcorect programul de 
rezolvare a unui sistem de două ecuaţii de gradul I cu două necunoscute și 
schema logică a rezolvării sistemului ; de asemenea, ei trebuie să se convingă 
de necesitatea folosirii calculatorului la rezolvarea unor sisteme care necesită 
un volum mare de calcul. 


1* Programul de rezolvare.a sistemului. 


Pe baza recapitulării cu clasa, a principalelor noţiuni şi metode privind 
rezolvarea sistemelor de două ecuaţii de gradul I cu două necunoscute, se sta- 
bilește programul de rezolvare a sistemului 


A.X+B-Y=C 
D.X+E.Y=F. 
Astfel se notează: M=A-E—B.D, MI=C.E—F.B, M2=A.F—C.D şi 
se face discuția de mai jos: 
dacă M=() şi M1z0, atunci sistemul este incompatibil ; 
dacă M=0 şi M1=0, atunci sistemul este compatibil nedeterminat și are 
o infinitate de soluţii ; 
dacă Mz0, atunci sistemul este compatibil determinati și arei. soluţiile 


2%. Schema logică] 

În perspectivă, noile programe de matematică vor beneficia — probabil 
de noțiunile privind schema logică, încă din clasele VII—VIII. În acest caz, 
ținînd seama de program, se va alcătui cu clasa schema logică a rezolvării 
sistemului. 4 îi 


Observaţie. În cazul că programa nu prevede noţiunea de schemă logică, se va 
trece la rezolvarea unor sisteme de ecuaţii, verificîndu-se soluţiile 
cu calculatorul. (fig. 12.1) 
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CITESTE ABC.DEF 


M=AE-B:D 


MI=CE-F:8 


M2-A F-CD 


SCRE "SISTE 
INCO AU 


SCRIE ySSTEM 
COMEATIBIL. 
EDE TERMINA 


Fig. 12.1. Organigrama rezolvării unui sistem de două 
ecuaţii cu două necunoscute. 


3*. Programul în BASIC 


1 INITP 80 X=M1/M 
5 PRINT ''REZOLVAREA UNUI SISTEM 90 Y=M2/M 
DE” 100 PRINT ''SOLUȚIILE SISTEMULUI” 
10 PRINT ''DOUA ECUAȚII CU DOUA”' 110 PRINT 'X=",X; 'Y=",Y 
15 PRINT ''NECUNOSCUTE' 120 GO TO 189 
20 PRINT ''A*X+B*Y=C; D*X+E*Y=F'' 130 IF Mi< > THEN 160 
30 INPUT A,B,C,D,EF 140 PRINT ''SISTEM COMPAT. NEDETER-- 
40 M=A*E—B*D MINAT” 
50 M1=C*E—F*B 150 GO TO 180 
60 M2=A*F—C*D 160 PRINT ''SISTEM INCOMPATIBIL” 
70 IF M=0 THEN 130 180 END. 


4*. Aplicaţie pe calculator 
Se cere rezolvarea sistemului : 


5,625x4+-375y =721,851 
105x4+-3,25y =163,9348 


Practic, o parte din elevi vor da soluţii greșite în rezolvarea acestui sistene+ 
Soluţia este : x =—1,5024 ; y=—1,9024 
Se trece apoi la rezolvarea cu calculatorul a sistemului. 
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Calculatorul „aMIC“ oferă soluţia : x=—1,50239 ; y=—1,90239. 

În final, profesorul se va opri asupra unuia din obiectivele acestei lecţii 
de recapitulare şi anume acela al necesităţii alcătuirii schemei logice— ca dovadă 
a unor priceperi și deprinderi trainice în rezolvarea sistemelor de două ecuaţii 
cu două necunoscute. De asemenea, pe baza rezolvării ultimului sistem, elevii 
se conving că este necesară folosirea calculatorului pentru rezolvarea unora 
din sistemele cu coeficienţi mai „complicaţi“. Ei vor fi solicitaţi să ofere calcula- 
torului, spre rezolvare, o serie de sisteme compatibile sau incompatibile, să 
„compare timpul lor de rezolvare cu timpul necesar calculatorului etc. Pe această 
bază apare şi dorinţa însușirii unui limbaj de programare în vederea accesului 
lor la calculatorul școlii. 


Tema. Funcția (secvență dintr-o lecţie de sinteză de la finele clasei a IX-a — ea poale serot 
ca o lucrare de control al cunoștințelor recapitulale). 
Prin intermediul consolei se proiectează pe ecran funcția 


£:(—5,6] = (4,4] 


al cărei grafic este dat în figura 12.2 şi se cere să se scrie ; 

1”. mulțimea valorilor funcţiei ; 

2. lungimea fiecărui segment al figurii (în ordinea de pe figură) | 

3*. panta fiecăreia din dreplele ce conțin segmentele figurii (in ordine) | 

4”. ecuaţiile dreptelor ce conțin segmentele figurii (în ordine) ; 

6. dacă funcţia este injectivă sau surjectivă ; 

6”. mulțimea valorilor argumentelor pentru care se anulează funcția 

7. mulțimea valorilor argumentelor Pentru care f(2)> 0) (respectiv f(x)<0) 1 

8. mulțimea pentru care funcția este strict crescătoare (respecliv strict deseres- 
cătoare) ; 

9. reprezentarea în acelaşi sistem a funcțiilor date de y="faz, ' şi V=— 
= —" fat , unde f este funeia dată inițial. 


a(. 5 4) Y4 


A(-5,-4) i 
Fig. 12.2. Funcție dată sub forma grafică. 
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Obserraţie. Pentru tiecare din întrebările puse (exceptinjd 9”) sint ataşate cite două răs- 
punsuri din care unul este corect și nu prea greu de sesizat. Pentru (9), explicațiile suplimen- 
tare conţin trei sisteme de axe de coordonate : primul reprezentind y=t (x) şi y= |tQO|, al 
doilea pentru y=f (*) și y=—|f (x) |, iar al treilea conține toate cele trei grafice în ordine 
(linie plină, punctat și liniuţe). Elevul îl subliniază cu o linie pe cel corect și predă lucrarea 
profesorului. În tema de acasă, elevul trebuie să răspundă la întrebările de mai sus, motivind 
care sînt elementele de care n-a ţinut seama în cazul răspunsurilor incorecte. Acest mod de 
lucru îl va stimula să înţeleagă funcţia de „help“ a calculatorului, construind el însuși „comen- 
tari! și trimiterea la material auxiliar“ ,,,, 


Tema. Funcţii pulere de forma 
RR B, (123) =x, EN 
şi funcții putere de forma ! 
t: RN(0J)—R, t(x)=x", nez. 
( Reluăm o secvență din prima parte a unei lecţii de sinteză de la finele clasat 
a IX-a, sau de la începutul clasei a X-a. Calculatorul este folosit aiel de către 
profesor pentru antrenarea gindirii „productive“ a intregii clase). 
1*. Prin intermediul consolei vor fi proiectate pe ecran cîteva grafice 
corespunzătoare lui n € (0, 1, 2, 3, 4, 5), în două etape: 
1. Cazurile particulare (pentru nz0 și pentru n=l): 
(n=0=— 1 (x)=1)— dreapta de ecuaţie y=l, paralelă cu (0x), figura 12.3; 
(n=l = î (x)=—x) — dreapta de ecuaţie y=x, bisectoarea _I, figura 12.4; 
Se reţine de aici ideea că graficele trec prin punctul P (1, 1). 


Fig. 12.5 Fig. 12.6 Fig. 12.7 Fig. 12.8 
Fig. 12.3. Funcţia y=1. Fig. 12.6. Funcţia y=x?. 
Fig. 124. Funcţia y=x. Fig, 12.7. Funcția y=xi. 
Fig. 12.5. Funcţia y=x?. Fig. 12.8. Funcţia y=x%. 


2. În cea de-a doua etapă se proiectează gralicele următoarelor funcţii : 
(n =2 = f(x) =—x2) — parabole de ecuaţie y =x?, figura 12.5 
(n 33) = £ (5) =x5) — parabola cubică de ecuaţie y=z, figura 12.6 
(n =4) = £ (x) =—x%) — grafic de tipul parabolei, avînd ecuaţia y =xf, figura 12.7 
(n =5 = t(39)=—x5) — grafic de tipul parabolei cubice, avind ecuaţia y=x, 

figura 12.8 sin 
((n=2p, peN, p>1) = (f(x)=x2%)) — grafic de tip parabolă, de ecuaţie y =x*; 
((n=2p+1, peN, p>1) = (f (x) =—x22+D)) — grafic de tip parabolă cubică, de 
ecuație y=—x2+1. 
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2. Comentarii ce se pot desprinde din analiza graficelor de funcţii 
f()=>”, xeR, neN. 

1*. Pentru orice n, n-natural, graficul trece prin punctul P(I, 1), şi 
pentru orice n, ne N*, graficul trece prin originea axelor, deoarece propozi- 
ţiile „0=0“ şi „1=—1"* sînt adevărate. 

2%. Dacă n este număr natural par (n=2p, p>0), graficul este simetric 
în raport cu axa (0y), deoarece: f(—x)=(—x)P=x?=t (x), funcţia f fiind 
pară. Dacă M (a, b) aparţine graficului funcţiei f (x)=x%, xeR, atunci este 
adevărată egalitatea b=a?P. De asemenea, este adevărată și egalitatea b=(—a)% ; 
adică, M' (—a, b) aparţine graficului funcţiei date. Fiecărui punct de pe gra- 
fic M' (a, b) îi corespunde pe același grafic simetricul M' (—a, b) în raport cu 
axa (0y). 

3%. Dacă n este impar, n=2p+1, atunci graficul este simetric în raport 
cu originea axelor de coordonate 0 (0, 0). Avem: 


î (—x)=(—xpri xp = (3), funcţia fiind impară. 


Dacă Ma, b) aparține graficului, atunci este adevărată egalitatea 
b=—a?»+1 şi, de asemenea, egalitatea —b=(—ay)»+1 ; adică, M' (—a, —b) apar- 
ține graficului. Fiecărui punct de pe grafic M (a, b) îi corespunde pe grafic 
simetricul M'(—a, —b) în raport cu 0 (0, 0). 

4*. Graficul oricărei funcţii f:R— R, î (3)=x”, n par, este simetric în 
raport cu axa (0y), iar pentru n>0 are forma similară parabolei funcţiei 
î (x)=xi, xe R (spre exemplu). 

Graficul oricărei funcţii f:R—R, Î (x)=>”, n impar, este simetric în 
raport cu 0 (0, 0) şi are forma similară graficului funcţiei î (x)=x5. 


Observaţie. Pentru a verifica dacă noţiunile recapitulate, ale acestei sec- 
venţe, au fost însușite corect, secvenţa imediat următoare (fie că aceasta este 
derulată cu ajutorul calculatorului, fie prin metodele clasice obișnuite) ar 
consta din următorii pași : 

i) Desenaţi, schematic, graficele funcţiilor date prin formulele y =x* și 
y=x”, xeR și scrieţi mulțimile de valori ale argumentului pentru care : a) func- 
ţiile sînt nule ; b) funcţiile au valori pozitive ; c) funcţiile au valori negative. 

ii) Pentru funcţia dată prin formula f (x)=—x15, xeR, comparaţi 1 (2) 
şi f (—2); găsiţi î(—a) știind că î (a)=32. 

iii) Pentru funcţia dată prin formula f (x)=x, xeR, comparaţi ! (3) 
şi f (—3) şi găsiţi f (—a) ştiind că î(a)=52. 

IV) Fie punctul arbitrar M (a, — b) aparţinind graficului unei funcţii f. 
Dacă funcţia este dată printr-una din formulele y=—x” sau y=x* să se preci- 
zeze dacă punctele N (—a, b) și P(—a, —b) aparţin graficului lui f. Evident, 
pentru acest ultim punct este necesar un mic comentariu. 


Tema. Logarilmi (definiție şi proprietăţi buzate pe definiție) — lecţie de comunicare, realizată 
pentru autoinstruirea automatizată. 


1. Noţiunea de logaritm. Să considerăm ecuaţia exponențială 


ax=N, N>0, a>0, azil. (1) 
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Se observă că ecuaţia (1) nu are soluţie pentru N<0, deoarece 


F:R=— (0, oo), f(x)=a* 
are valori pozitive. 

Pentru N>0, ecuaţia (1) are soluție unic determinată, aceasta de- 
curgînd din proprietatea de bijectivitate a funcţiei exponenţiale. În figura 12.9 
respectiv 12.10 „este prezentată rezolvarea grafică a ecuaţiei ax=N, a>l (res- 
pectiv 0<a<1). 


N. 2 0 PU NUL DO Ii | 
Fig. 12.9. Graficul funcţiei ex- Fig. 12,10. Graficul funcţiei ex- 
ponenţiale a* =N,a>l. ponenţiale a* =N, Î <a<l. 


Soluţia ecuaţiei ax=N, unde a>0, azI și N>0, se numeşte logaritmul 
numărului real pozitiv N în baza a. 

Prin definiţie, logaritmul numărului real pozitiv N în baza a, unde a >0 
şi az, este exponentu] la care trebuie ridicată baza a pentru a obţine N. 

Logaritmul numărului N în baza a se notează „log, N“, se citeşte „logu- 
ritmul în baza a al lui N“ sau „logaritmul lui N în baza a“ și se scrie „x — log, ÎN 


Conform definiţiei avem : 


] 


log» 16 —logp29%=—4; log A =loga|--) =l0gdg3-9=——5, 


93 3 , 

Avem deci relaţia : loga" =n. 

Din (1) și (2) rezultă egalitatea : al. N =N, N>0. 

Dacă în (1) punem x=1, atunci a1=a şi conform cu (2) avem relaţia : 
i0a,a =. 

i Dacă baza a este 10, atunci în loc de „logyp N“ se scrie „lg N“ şi seciteşte 
„logaritmul lui N în baza 10“ sau „logaritmul zecimal al lui N“ ; iar dacă baza 
a este numărul irațional e=—2,71828 ..., atunci în loc de log,N se serie „InN” 
şi se citește „logaritmul natural al numărului N“. 

2. Aplicaţii privind folosirea definiţiei și a proprietăţilor bazate pe cu. 
(Pentru a nu mai prezenta răspunsurile şi comentariile corespunzătoare lor, 
fiecare grupă de exerciţii începe cu un exerciţiu model, rezolvarea celorlalte 
fiind analoagă modelului). 
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aaa 1 
d ă iapa BE Lt a 
Dovediţi că logg Ti 3 


R : Conform detiniţiei, avem : ga (egalitate adevărată) 
inŢacelași mod, să se arate că egalitățile următoare sînt adevărate: 
1 1 1 

a) logs81=—4; b) logy 2=——; c) lg— =—1; d) logp-— =—l; 
) loga ) loga = ) le 3: ) log» FA 

-_. x 1 
e) log =8=6; î) log T729=—6; loga —=———. 
) SJ3 ) 5 8) loga i 


2”. Găsiţi numărul N, al cărui logaritm în baza o este e cu —2, 


R : Contorm definiţiei, avem log; N=—2 e: N=5? e N= 3 


33 
În același mod, să se găsească N știind că: 
a) logsN=2; b) le, =—1; 0) lesN=—2; d) log N=3; e)leN=03 
f) logN=1,5; g) log pN=— i h) loga N= ——; k) loga2N=t,9. 

„30. Găsiţi baza a, a logaritmului numărului 64, dacă log,64=—4 
g -$ 1 3 > 
—— A aa 1 1 

, „fer ap n 4 (98), 2-01 37 a-alationae > 
R :l09,64——4 ea 64 o 1=(64) (2%) 2 [3 Ta 


În acelașitmod, să'se găsească baza a știind că 

a) loga27—3; b) 10g1000=—1,5; €) log07=—6; d) loguGt= a 
e) logz j2=—2,5; î) loga (97 /3)= 2; 9) loga =; 

h) log, W/3= 

4*. Găsiţi logaritmul numărului 8 în baza V3. 

Ri: log 1 8—xieet( V3)=8 e a = Be =3 «e x=6, Deci log 8 =6. 


Înfacelași mod, să se determine numerele :] 


4 
a) loga; b) 190,01 + c) log 25: d) log 276) log, 3%: 
1 - 
* E pe 
î) loga (8/2) ; 2) log» 


5*. Găsiţi valoarea expresiei, 10 12, 
R: (1 ele = 1 pot 10212. 
În același mod, să se găsească valorile expresiilor : 


a)p10-1 5; ph) 1016100; c) 101504; d) 100. 
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D”. Care din expresii are sens ? 
a)log, 0; b) 18 001; c) Vig0,9; d) Ig(g96); e) los(-7); 


„î) logs (—3); 8) loga (—4)4; h) Vlg 25. 


7. Rezolvaţi ecuaţia logsx=—l 


1 
R :logsx=—l e x=31 x= = 
În același mod, să se rezolve ecuaţiile : 


a) log i x=3; b) logosx=2; €) loga (logs x)=0. 
2 


12.3. Programe utile în procesul de învățămînt 


În cele ce urmează se prezintă o serie de programe, care pot li utilizate 
in procesul de învăţămînt. Ele pot fi completate cu unele din programele date 
în paragrafele anterioare ale acestui capitol. 

Programele de mai jos sînt utile în cadrul orelor de algebră, geometrie, 
fizică, pentru ilustrarea, prin reprezentări grafice, a unor luncții sau fenomene 
fizice. De asemenea, ele pot fi folosite pentru verificarea cunoștințelor unor 
grupuri de elevi, în privința despărțirii cuvintelor în silabe, a cunoașterii reşe- 
dinţelor de judeţe sau pe alte teme. La sfîrşitul examinării candidaţii sînt ordo- 
naţi automat după mediile obţinute. 


12.4. Program pentru trasarea cercului trigonometric. 


Programul trasează cercul trigonometric şi calculează iu pețiile Sin, cos 
tg, pentru un unghi dat. Unghiul se dă sub forma unui multiplu k, de 5 grade — 
(P1/36). 


$ INIT.P 
10 REM'CERE TRIGCNCMETRI C 
12 REM"F=MULTIPLIU DE S GRADE 
15 INPAT k 
20 G=kaPl/26 
MOVE 50, 50 
FAR J=0 TO 2aPl STEP Pl/ae 
DRAW 23s003(4)+50, 2305 IN) +50 
SO NEXT y . 
60 MOME S0,S0 
70 RDRAM 25,0 
20 RMOVE 25,28 
SO RDRAW 0, -50 
100 MOVE 90,50 
110 RDRAW 2S=CUS(8), 25*6IN(Q) 
120 RDRAW 0, -25=SIN(a) 
125 P=Q*180/FI 
130 P&INT AT(17,20)"A(1,0)"” 
140 FRINT AT(8,9)"B(Op1)" 
150 PRINT AT(47;4p"Ct-1,0)" 
160 PRINT AP(35,3)"D(0,-19" 
105 PRINT AT(25,1)"u;u 
170 PRINT AT.(27,1)"8="p0 
189 PRINT ATIZ8,1)"SIN(Q)="; SIN(G) 
190 PRINT AŢ(29, 1) "COS (G)=";COs(Q) 
' 200 PRINT AT(30,1)"TAN(0)="; TAN(E) 
400 ENB 
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12.5. Program pentru vizualizarea poziţiilor unor drepte care 
trec prin originea axelor de coordonate. 


Programul are un caracter conversaţional, solicitind iniţial numărul k 
de drepte, care urmează a fi reprezentate, coeficienţii unghiulari, M (k), ai 
acestor drepte şi limitele pe orizontală ale ferestrei de afișare (XI, X2). 


S INIT P 
10 REM"VIZUALIZAREA POZITIE! 
20 REM"UNEI DREPTE CE TRECE 
30 REM"PRIN 0(0,0),. IN FUNCTIE 
40 REM"DE COEFICIENTUL UNGHIU- 
SO REM"LAR M=TAN(U) „UNDE 
60 REM"Y=MaX 
70 REM"VARIABILE UTILIZATE 
80 REM"K = NIIMAR DE DREPTE 
90 REM"M(K) = VECTORUL ALE 
100 REM"CARUI COMPONENTE SINT 
110 REM"COEFICTIENTII UNGHIULARI 
120 REM"LIMITELE FERESTREI 
130 REM"APISATE : Xi=LIMITA 
140 REM"STINGA, X2=LIMITA DREAP 
150 REM'TA, Y1 = LIMITA JOS, Y2m 
160 REM'LIMITA SUS 
200 PRINT "INTRODIJCETI K": 
210 INPUT k 
220 PRINT "INTRODUCSTI COEFICIENTIL” 
225 DIM M(k) 
230 FOR 1=i TO K 
240 PRINT * M("p13")e"p 
2350 INPUT M(1) 
260 NRXT I 
270 PRINT * INTRODUCETI LIMITELE X1,X2" 
280 INPUT X1,X2 
290 vi=X1 
200 Y2=X2 
310 REM"AFISAREA GRAFICULUI 
315 INIT P 
320 VIEWPORT 40, 120,20, 100 
330 WINDOW X1,X2,Y1,Y2 
340 REM"TRASARE AXE SI CONTUR 
350 MOVE X!,Y1 
360 DRAW X2,Y1 
370 DRAW X2,Y2 
280 DRAW XI,Y2 
390 DRAU X1,Yi1 
400 MOVE X1,0 
410 DRAW X2,0 
420 MOVE 0,Y1 
DRAW 


0,Y2 
440 PRINT AT (1,20)*Y” 
450 PRINT AT(15,30)"%x" 
S00 R=(X2-X1)/20 
Sto POR I=i TO Kk 
515 PRINT AT(2%1, ph "Mi Ip eMit 
S20 Ri=1*R 
530 MOVE X1,M(boexi 
S40 DRAW X2,M(1)*X2 
SS0 MOVE R1,0 
355 U=ATN(M(1)) 
556 IF U=> THEN 600 
557 IF U>0 THEN $60 


S5a U=PI+U 

S60 FOR y=0 TO U STBP U/10 
570 DRAM RIxCOS(I) RPRSIN(J) 
S80o NEXT J 

800, NEXT 4 

200 END 


12.6. Graficul funcţiei de gradul doi. 


Programul afişează într-o fereastră dată (XI, X2) o familie de parabele 
de gradul doi (Y=A*X 42) cu diferiţi eoeficienţi. Limitele verticale ale feres- 
trei se calculează automat. 
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5 INIT P 

10 REM"ORAFICUL FUNCTIEI 

20 REM"DE GRADUL DOI 

30 REM"Y=AxX+2 

40 REM"VARIABILE UTILIZATE 
50 REM"K=NUMAR DE PARABOLE 
60 REM"A(K)=VECTORUL ALE 

70 REM"CARUI ELEMENTE SINT 
80 REM"COEFICIENTII LUI X*2 
90 REM"LIMITELE FERESTEREI 
100 REM"AFISATE s XiaLIMITA 
110 REM"STINGA, X2=LIMITA 
120 REM"DREAPTA, Yi=LIMITA JUS 
130 REM"Y2=LIMITA SUS 

140 REM"FEREASTRA SE CONSIDERA 
150 REM"SIMETRICA, DECI: 

110 REM"ABS(X1)=ABS(X2)=X SI 
170 REM"ABS(Y1)=ABS(Y2)=X12 
200 PRINT "INTRODUCETI K"s 
210 INOUT K 

220 PRINT "INTRODUCETI COEFICIENȚII? 
230 DIM A(K) 

240 FOR I=i TOK 

230 PRINT "A("519")="ș 

260 INPUT A(1) 

270 NEXT 1 

280 PRINT "INTRODUCETI X"7 
290 INPUT Y 

300 A1=-X 

310 X2=X 

320 Vi=-x*2 

320 Y2=X*2 

340 REM"AFISARE GRAFICA 

350 INIT P 

360 VIEWPORT 40,120,20,100 
370 WINDOW X1,X2,Y1,Y2 

380 REM"TRASARE AXE SI CONTUR 
400 MOVE X1,Y1 

410 DRAW X2,Yi 

420 DRAW X2,Y2 

430 DRAW X1,Y2 

440 DRAW X1,Yi 

450 MOVE X1,0 

460 DRAM X2,0 

470 MOVE 0,Y1 

480 DRAW 0,Yz 

S40 PRINT AT(1,20)"Y* 

Ş50 PRINT AT(15,30)*xX" 

560 PRINT AT(1,1)3"Y=AxX"2" 
600 P=X/20 

610 FOR I=i TOK 

615 PRINT AT(2x7,1)“A"s pati) 
620 MOVE X1,A(1)*Xt*2 

630 FOR y=X1 TO X2 STEP P 
640 DRAW 9, A(1)ay*2 

SO NEXT 

660 NEXT i 

700 END 


12.7. Graficul funcţiei de gradul N 


Programul reprezintă graficele u nei familii de parabole (Y=A (k)*X" N), 
unde A (k) este coeficientul parabolei cu numărul'k, iar N>=—0. Programul 
solicită numărul k de parabole, coeficienţii A (k) și limitele orizontale X1, X2 ale 
ferestrei de afișare. 
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Ss INITP 

10 REM"GRAPICUL FUNCTIEI 

20 REM"DE GRADUL N 

30 REM"Y=AxXAN 

40 REM"VARIABILE UTILIZATE: 
50 REM"K=NUMAR DE PARABOLE 
60 REM"A(K)=VECTORUL ALE 

70 REM"CARUI ELEMENTE SINT 
80 REM"COEFICIENTII LUI X*N 
90 REM"LIMITELE FERESTREI 
100 REM"AFISATE: XisLIMITA 
110 REM"STINGA, X2=LIMITA 
120 REM"DREAPTA, Yi=LIMITA JOS 
130 REM"Y2=LIMITA SUS 

140 REM'FEREASTRA SE CONSIDERA 
150 REM"SIMETRICA, DECI 

160 REM"ABS(X1)=ABS(X2)=ă SI 
170 REM"ABS(Y1)=ABS(Y2)=x*2 
200 PRINT "INTRODUCETI k"; 
210 INPUT K 

220 PRINT "INTRODUCETI COEFICIENȚII” 
230 DIM A(Kk) 

233 DOM N(k) 

240 FOR 1= 1 TOK 

250 PRINT “A("31p*)a"ş 

260 INPUT A(I) 

265 PRINT "N(";1;")="p 

266 INPUT N(I) 

270 NEXT 1 

280 PRINT "INTRODUCETI 1"p 
INPUT X 

X1=-X 

Xa=ă 

Vi=-X"2 

Yasy*2 

D REM"AFISARE GRAFICA 
INIT P 

VIEWPORT 40, 120, 20,100 
370 WINDOW X1,X2,Y1,Y2 

390 REM"AXE SI CONTUR 

400 MOVE X1,Yi 

410 DRAW X2,Y1 

420 DRAW X2,Y2 

430 DRAW X1,Y2 

440 DRAW X1,Yi 

450 MOVE X1,0 

460 DRAW X2,0 

470 MOVE 0,41 

430 DRAW 0,42 

S40 PRINT AT(1,20)*Y* 

350 PRINT AT(15,30)"xX* 

960 PRINT AT(1,1)9*Y=AnX'N” 
600 P=Xx/20 

e10 FOR l= 1 T0Fr 

15 PRINT AT(2x1,1)"A"șIpa”A(1) 


ele FRINT AT(d=[+1,19"N"5p"e“aN(IL 
623 MOVE XI, ACLDXI"N(I) 

620 FOR d=ăx4 to Xa STEP P 

e40 DRAW JI, A(ID)my*N(I) 

&S0 NEXT d 

250 NEXT 1 

e? PRINT "DORITI ALT 1>, DA=i” 
673 INPUT DU 

Si IF D= THEN 280 

700 END 


12.8. Graficul funcţiei logaritmice. 


Programul afișează graficul funcţiei logaritmmice în bazele. 2, 3, 5 şi 10. 
Iniţial se solicită limitele orizontale de afișare. 
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S INT F 


10 
20 
30 
că 
40 
45 
“0 
35 
eo 
75 
eo 
VA 
83 
15) 
Sa 


REM "RAF ICUL FIINCTIE) 

REM “"LOGARITMICE IN 

REM “BAZELE ; 2,3,5,10 

REM “LIMITELE INTERVALULUI] 

REM “DE AFIZARE 

REM “X1 = LIMITA STINGA 

REM "X2 = LIMITA DREAPTA 

REM *Y1 = LIM.uD6, Ya e Lim. Su 
REM “LIMITA X1 VA FI CALCIILATA 
REM “"FENTRU Y = LOGCXI/LOG(LD 
REM "DACA Y >= 1 LIMITA Vă SE 
CALCULA 

REM "PENTRU Y = LOG(XO LU Dia 
PRINT "INTRODUCETI LIMITELE: 
PRINT "X1 SI X2* 


10 PRINT "x =" 
110 INPUT XI 
120 PRINT "X2 = 


INPIIT x: 
IF X1 = 0 THEN Sur 
YI = LOG(XILD/LOG( 2 


O IF X2- 1 THEN 190 


Ya = LOG(X2) /LBG( 2 

GOTU 20u 

Y2 = LOG(X2) /LODi lu 

REM "AFISARE GRAFICA 
INIT P 


D VIEWPORT 40,120,0,7u 


WINLICU X1,X2,Y1,Y2 


O REM "TRASARE AXE 851 CIINILIP 


50 MOVE X1,Y1 


DRAW X2,Y1 
DRAW X2,Yz 


0 DRAW XI, Y2 


DRAW X1,Yi 
0 MOVE X1,0 


10 DRAW X2,0 


) MOVE O,Y1 
DRAW 0,Yz 
5 PRINT AT(10,10)"Y' 
O PRINT AT(zz,a 


0 PRINT AT(1,195 "YD (RO /LGizr 


PRINT AT(2, 195 "Y=LOG(XD)/LOG( 3) 


GO PRINT AT(3, 1): "YsLOG(X) /LOG(S)” 


PRINT AT(4,1); "Y=LOG(X)/LIIG(10» 

O PRINT AT(S,1);"X1="să 

PRINT AT(6,1);"X2>" 

PRINT AT(7,1)ţ"Yi="ș 
AT(E,10p;"Y2>": 


600 


60u 


435 GO3UB 600 
440 k = 10 Ea 
59 catel 600 
0 PRINT"DORIT e. A 
i pai ITI ALTE LIMITE * DAz=j 
490 IF D=1 THEN 90 
495 GOTO 700 
300 PRINT “LIMITA X1 INCORECTA” 
S10 sTop 
800 P=(X2-X1)/100 
GiU FOR J = X1 TD X2 STEP F 
20 DRAW I,LOG(U) /LOG(K) 
630 NEXT y 
640 MOVE X1,Yi 
650 RETURN 
700 END 


12.9. Program pentru studiul aruncării corpurilor 


sub un unghi dat 


Programul solicită unghiul sub care are loc aruncarea, viteza inițială şi 
viteza v întului, 

Pentru încadrarea graficului in limiteie ecranului, programul execută o 
scalare pe verticală, calculînd iniţial înălțimea maximă la care ajunge corpul. 
În acest scop solicită numărul de pași pentru a calcula valorile parabolei în 
punctele respective, reținind valoarea maximă. 

Se afișează înălțimea maximă [și bătaia. 
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 INIT F 

2 REM"PROGRAM PENTRU STUDIU ARUN= 

CARII CORPURILOR 

PRINT "INTRODUCETI UNGHIUL a WU, V, INITIV, V, VINTai 


INPUT 1,V,W 
PRINT "INTRODUCETI NUMARUL DE PASI Ne 
INPUT N 

INIT PF 

L=PInll/ 180 
32 K=VaCOSL)-M 
Ves IN(L))/k 

34 A=-4,903/K*2 

35 X2=KmVaSIN(L)x2/9,81 

3& R2=(1/19.62)8(VaSINI(L))*2 
37 PRINT AT(28,1)"H.MAX = "s;R2 
39 PRINT AT(29,1)"X.MAX ="sX2 
45 DOSUB 1000 
50 STOP 

40 END 

1000 1F X1< X2 THEN 1030 
1010 PRINT "LIMITE GRESITE" 
1020 STOP 

1030 H=(X2-X1)/N 

1040 VIEWFORT 40,100, 20,100 
1050 X1=0 

1070 Ri=0 

1100 IF X2>=R2 THEN 1140 
1110 X2=RZ ii 

1120 GOTO 1190 

1140 Ra=X2 

1190 WINDOW X1,x2,RI,k2 
Y200 MOVE X1,0 

+201 DRAW X2,0 

1207 MOVE O0,R1 

1203 DRAW O0,R2 

1310 X=X1 

1220 GOSUB 1500 

1220 MOVE X,F 

1240 FOR l=i TON 

1230 X=X+H 

1260 GOSUB 1500 

1270 DRAW XOF 

y280 NEXT 1 

1290 RETARN 

1500 P=AxX"2+Bxx 

1516 RETURN 


MAGI NOP EU 


12.10. Calculul punctului de intersecţie a două drepte 


U dreaptă poate fi definită prin specificarea coordonatelor unui punct 
M (x, y) şi a unghiului pe care îl tace cu direcţia pozitivă a axei Ox. Fie două 
drepte Dl și D2 de ecuaţii parametrice: 


X=X+L, cos U, 
DI: 

Y=Y.+l, sin U, 

X=Xa+ka Cos Ua 
D2: 


Y=Y2+Le sin Us 


Fie (X9, Yp) coordonatele punctului de intersecţie. 
Înlocuind în ecuaţiile parametrice, se obține sistemul ” 


Xp= Xa + La cos U, 
Yp=Yi+lu sin U, 


Calculul punctului de intersecţie a două drepte 


De aici rezultă : 


XNp=Xa+ La cos Uz 
Y9= Y>+ La sin U> 


L, cos U,—La cos Us=X2—X, 
| PE sin U,—La sin Uz =Y2—Y 


De unde: Lu =((A— 


Avînd determinat Ly, 


EP ETER II TILL ILIE ERE 


105 


REM 
REM 
REM 
REM 
DIH 
REM 
PRIN 
PRIN 
INPU 
PRIN 
1NPU 
REM 
N=AB 
în. 2 
PRIN 
sToP 
BEN 
REHN 
Vi=u 
92=u 
pi=t 
D=$1 
L=201 
XD=X 
YO=Y 
PRIN 
PRIN 
PRIR 


Xa) sin U2—(Y,—Y2) COS U2)/sin (U,—U3). 


coordonatele punctului de intersecţie vor îi : 
Xp= Xa +a cos U, 
Yp=Y+la sin U, 


“ANNRRRRR ma e e eee 
“* CALCULUL PUNCTULUI DE -. 
“x INTERSECTIE A DOUA DREPTE »* 
e 3 2 1 N DD DN DN DN N ÎN De DN N e e De e e edeme 
D$i1) 

"CITIREA DATELOR” 

T "INTRODUCETI PARAMETRII DREPTELER* 
7 sI 71 „UI (GRADE) * 

i XX vi 

7 AA Vb V2ORAD8)* 

T X2,Y2,V2 

"TESTARE PARALELISM DREPTE" 
S(tU1-U2)/180) 

NT (NCN THEN 50 

T *DREPTELE SINT PARALELE" 


"CALCULUL COORDONATELOR* 
"PUNCTULUI DE INTERSECTIE" 
1*P1/180 

2*P1/180 
X1-X2)*SIN(U2)-(Y1-Y2)uC0S(U2) 
N(U1-V2) 

19 

1+L*COS(UL) 

1*L*SIN(U1) 

T "COORDONATELE PUNCTULUI” 
T "DE INTERSECTIE SINT:* 

T *X0=*;Xx0 


PRINT "Y0=*;Y0 


PRIN 


T "DORITI AFISARE GRAFICA? (DA,NU) 


INPUT De(1) 
IF D$(1)=*D* THEN 120 


STOP 
REH 

TI=ă 
T2=A 
IRT 
TiaT 
T1=2 
IF T 
T1=2i 
INIT 
VIRU 
AINS 
REH 

MOVE 


"DEFINIREA SPATIULUI DE AFISAT* 
BS(X09 

BstYob 

172 TREN140 

2 

71 

1€0 THEN 149 

0 


PART 10,90,10,90 

0U —T1,TI,-TI,Ti 

“TRASAREA AXELOR* 
-T1,0 


BRAU T1,0 


Hevi 
DRAU 
REM 

MOVE 
DRAU 
MOVE 
DRAU 
MOVE 
DRAU 
MOVE 
BRAU 
END 


O,-Ti 

0,71 

"TRASAREA DRERTELOR* 
X1-2xT1*COS(U1),Y1-2xTI*SIN(UL» 
X1+2xTI1XCOS(U1),Y1+2*TI*SIN(UL) 
X2-2xT2x*C0S (U2), Y2-2*T2*SIN(U2) 
X2+2xT2xC0S (U2), Y2+2x*T2xSIN(U2) 
X0,Y0O 

X0,0 

X0,Y0 

9,Y0o 
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Dacă dreptele sint paralele numitorul expresiei pentru calculul lui La 
este nul. Deci se va testa condiţia de neparalelism UI—UDzKz. 

Programul funcţionează astiel : 
1. Citeşte parametrii celor două drepte ; XI, YI, Ul și X2, Y2, U2. 
2. Testează dacă cele două drepte sint paralele. Dacă dreptele sint paralele 

se oprește execuţia programului. 

3. Calculează coordonatele punctului de intersecție și apoi le afișează. 
4. Afişează gralic (eventual) rezultatul. 

La definirea spaţiului de afişat în linia 195, s-a avut în vedere ca originea 
şi axele sistemului de coordonate să apară pe ecran. 


12.11. Calculul punctelor de intersecție a două cercuri 


Se consideră cercurile definite prin centru și rază: CI (XI, YI, lil)şi 
C2 (A2, Y2, R2). Distanţa dintre centrele celor două cercuri este: 


D= yV(X2—X12-F(V2— YI 


Se va nota G=X2—X1 şi H=yY2—Y1. 

Pentru a se intersecta, distanţa “dintre cercuri: trebuie să [ie mai mică 
decit suma razelor şi mai mare decit diferenţa lor ; |R2—RI | <sDshil-+R2. 

În cazul egalităţii, cercurile vor îi tangente. Se notează cu Ul unhiul 
format de dreapta ce unește centrele cercurilor cu orizontala și U2 unghiul 
format de această dreaptă cu raza primului cere dusă în punctul de intersecție 
dorit. Coordonatele punctului de intersecție vor fi: 


XN=XI+RI scos (U1-+F+U2) 
Y = Y1+Rlesin (Ul + F+U2) 
Unde: F=1 pentru punctul din stînga dreptei ce unește centrele (privit din Cl) 
şi —1 pentru cel din dreapta. 
Pentru calculul unghiurilor Ul şi U2 folosim relaţiile : 


Ul =ATN (G/H), sau z/2 dacă H=0 


şi 
U2 —arccos (R124+D2—R22)/(2«R1+D) 


insă arceos va fi calculat prin funcţia ATN. 
Pregramul funcţionează în felul următor : 
1. Citeşte coordonatele centrului și raza XI, YI, Rl pentru primul cerc. 


2. Citeşte toerdonatele eentrului și raza X2, Y2, R2 pentru al doilea cerc. 
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3. Citește valoarea lui F (l=punctul din stînga, —l=cel din dreapta) 


4, Caleulează valorile G, H și D. Dacă nu e verificată condiţia : | R2—RI! |g 
<D<RI+R2 execuţia se oprește. 


5. Calculează unghiurile Ul şi U2. 

6. Calculează coordonatele X, Y ale punctului de intersecţie dorit. 
7, Afisare grafică (eventuală) a rezultatului. 
ia) 


3. Stop. 


ODO PEM me e e ee d Dn în n în ÎN m 2 DE DD îi îm e n a e a m memo e 


D0$ REM "m CALCULIIL PUNCTELOR DE INTERSECTIE A DOUA CERCLRI »* 
010 REM "amommrmmomenaareemennmabeesnninernano stante mmm” 


015 DIM RS(1) 


020 PRINT "INTRODUCETI COORDONATELE CENTRULUI SI RAZA" 
0235 PRINT: "PENTRU PRIMUL CERCUXI,YI,RLI"3, 


IAPUT YA,YI,RI 
IF R14-0 THEN 070 


50 PRINT "PENTRU AL DOILEA CERC(X2,Y2,R2)": 
INPUT X2,Y2,R2 

IF R2>0 THEN 095 

PRINT "RAZA NEGATIVA SAU NULA!” 

3 GO TO S?0 


REM "CALCULIIL MARIMILOR G,H,D" 


5 Grya-X1 
190 H=Y2-Yi 
Do ZaR(G*G+HaH) 


3 PEM "VERIFICREA CONDITIILOR DE INTERSECTIE" 


IF DO THEN 14% 

30 IF RI<>R2 THEN 15% 

5 PRINT "CERCURI IDENTICE!" 

Ga Ta 320 

IF D>RI+R2 THEN 155 

IF D>=ACS(RI1-R2) THEN 180 

PRINT "TERCLURILE NU SE INTERSECTEAZA!” 
Go Ta 0 


REM "CALCULUL IUNGHIULUI Up” 


ui=P1/2 

IF Gto THEN 205 
TF H>0 THEN 235 
Wi==ui 

GOD TQ 225 

S UI=ATN(H/G) 

IF GO THEN 22% 
Ui=UI+P1 


REM "CALCULUL UNOHIULUI U2* 


LI CRImRI1 +DeD-R2RRD) /(2xR(rD) 
U2=P1/2 

IF Li=0 THEN 275 

L2=S0R( 1-LImLI)/L1 

UZ-ATNIL2) 

IF L1X0 THEN 275 

5 UV2=iu2+Pl 


% PRINT "PUNCTELE DE INTERSECTIE AU COOKDONATELE:” 


p-s 
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XX 1+RIKCOS(UL+F*u2) 
Y=Y 1+R1*SINCUI+F*U2) 
PRINT "X="7%,"y="Y 
F=iF 

IF F<>1 THEN 290 


PRINT "DORITI AFISARE GRAFICA(D/N) "+ 


INPUT R$ 
IF RS<>"D" THEN 590 


REM "STABILIREA CONDIȚIILOR DE AFIŞARE" 


INIT 

IEWPORT 40, 140,0, 100 
A=X1 

B-X2 

GO SUE 543 

Ti=T 

A=V1 

B-Y2 

GO SUE 545 

IF T>=Ti THEN 410 
TeTi 

WINDOW =T,T,T,T 
MOVE -T,-T 

DRAW T,-T 

DRAW T,T 

DRAW -T,T 

DRAW -T,-T 


REM "TRASAREA CERCURILOR” 


Je 2xP1+P1/10 
K=P1/10 


O MOVE XI+R1,Y1 


FOR 1=0 T0 J STePr 

DRAW X1+RI*COS(1), YI+RIeSIN(I) 
NEXT ] 
MOVE X2+R2,Y2 
FOR 1=0 TO | STEP K 

DRAW X2+R2*COS(1), Y2+R2*SIN(I) 
NEXT 1 


REM "TRASAREA AXELOR" 


REM "SURRUTINA DE CALCUL A COORDONATEI MAXIME" 
REM “PE 0 DIRECTIE DATA" 


TrABŞI(A-RI) 
IF T>=ABS(B-R2) THEN S60 
T=ABS(B-R2) 
IF T>=ABS(A+RI) THEN Ş70 


T-ABS(A+R1) 

IF TY*ARS(B+R2) THEN 580 
T-ABS(EB+R2) 

RETURN 


PRINT "DORITI ALTE CERCURI (D/N)”: 


INPUT RS 
IF R$="[" THEN 020 
END 


12.12. Calculul tangentelor dintr-un punct la un cerc 


Fie o dreaptă D de ecuaţii parametrice : 


X=X+L cos T 
Y =Y,+L sin T 
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unde: Xa, Y, Sint coordonatele unui punct precizat al dreptei, T direcţia 
dreptei, iar L este distanța de la punctul (X,, Y.) la punctul curent. 
Fie un cere C, de centru! (Xo4 Yo) și rază Ride ecuaţie : 

(X—X9) + (Y— Yo) =” 


Pentru a se obţine tangentele din punctul (X,, Y,) la cercul C, se vor 
înlocui X și Y daţi de ecuaţia dreptei D în ecuaţia cercului. Se obţine: 


') 12+2L (H cos T+V sin T)+V24+H2—R2=0 
unde s-a notat: H=X—X9 şi V=Y—Yo. 
Se presupune că punctul (X,%Y,) [este exterior [cercului C, deci: 


J/H2+ VZ>R2. Condiţia ca dreapta D să fie tangentă la cerc este ca ecuaţia (1) 
de gradul doi în L, să aibă soluţie unică. Pentru aceasta trebuie ca : 


(2) (EH cos T+YV sin T=V2+H?—R? 
În rezolvarea acestei ecuaţii se disting două cazuri 
a) H3+0. Din (2) se obţine: 


VV2+ H2—R2 


rr ÎN ma stat 
cos a sin I=+ Ti 


Fie E —aretg (A). Înlocuind mai sus se obţine: 


iati pe ai | EP 
ro da A is 
R 
tan (T—F)= PI za zeii 
| zi VN2+ H2— RE? 
și deci “uz = arclga; “rarele E: 


b) V7+0. Din ecuaţia (2), împărțind cu V rezultă: 


fr V2+ H?—R? 
sin (T-+F)=2 iz 


7 


SI : = H 
unde I* este unghiul pentru care tan F=3pe 
Procedînd ca la cazul precedent, se obţine : 


/V2 2 R2 
Taz =—aretg ÎL taretg| + AI Seat . 


Se observă că în ambele cazuri se obţir două unghiuri T, corespunză- 
toare celor două tangente la cerc. Avînd direcţiile tangentelor determinate 
printr-una din cele două metode, soluţia ecuaţiei (1) corespunzătoare unghiurilor 


100 
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Ta și la va fi: Laa=—(H cos 142+V sin Ti). Coordonatele punctelor de 
tangenţă se vor obţine înlocuind valorile obținute pentru T și L în ecuaţia 
dreptei D. S-au prezentat cele două cazuri de rezolvare a ecuaţiei (2), deoarece 
este posibil ca punctul (X, Y,) să se afle pe aceeaşi verticală sau orizontală 
cu centrul cercului. 

În aceste condiţii va rezulta H=0 sau V=0. (Evident, H şi V nu pot 
fi simultan nuli). Programul va testa dacă Hz0. În acest caz, direcţiile tangen- 
telor vor fi determinate prin prima metodă ; altfel se va alege cealaltă soluție. 


lor 


Funcționarea programului : 
1. Citirea datelor 


a) centrul şi raza cercului (X9, Y9, R) 


b) punctul din care se duc tangentele (XI, Y1) 


2. Testează dacă punctul dat este în interiorul sau pe conturul cercului, 
În caz afirmativ se va afișa un mesaj corespunzător și se va opri execuţia. 


3. Se determină direcţiile celor două tangente şi coordonatele puncte- 


de tangenţă și se afișează rezultatele. 


4. Afişează (după dorinţă) grafic soluţia 


găsită. 


1 REM "ammunnmnmmraronenennmauma sana 135 1F LI"ARSCXL) THEN 195 
2 REM "m CALCULUL DREPTELOR DE TANGENTA ." 190 LET LI=ABS(X1) 

3 REM "m DINTR-UN PUNCT DAT LA UN CERC DAT »" 195 IF LL>ABS(YL) THEN 20$ 
4 REM "umamnnrermnnamuprenunmmamaemammieee 200 LET Ll*ABS(YL) 

s REM "CITIREA DATELOR" 20% IF LL490 THEN 215 

6 DIM D$cl) 210 L1=20 

? PRINT ÂNTRODUCETI COORDONATELE CENTRULUI" LET Li=2uLi 

10 PRINT "SI RAZA CERCULUI (X0,Yu,RD” INIT 


INPUT X0,YO,R 
PRINT "INTRODUCETI COORDONATELE PIINCTULIIT (X1,YId” 


VIEWPORT 10,90,10,90 
O WINDOW —LI,LI, LILI 


25 INPUT X1,Y! 2 REM "TRASAREA CERCULUI” 

30 LET M-Xi-xX0 MOVE XO+R, Yo 

35 LET V=Y1=Y0 FOR 1=0 TO 2*P1+P1/40 STEP PI/s0 
10 LET D=SQR(VxV+H=H) DRAW XO+ReCOS(1), VO+RSIN(I+ 
42 REM "SE TESTEAZA DACA PUNCTUL (X1,Y1)* NEXT 1 

13. REM "ESTE IN INTERIORUL CERCULUI * 


IF DR THEN 73% 

IF D-R THEN 65 

PRINT "PUNCTIIL ESTE INTERIOR CERCULUI” 
STOP 


»S2 REM "TRASAREA TANGENTELOR" 

MOVE Z1,W1 

DRAU *1,Y1 

DRAW 12,W2 

REM “TRASAREA AXELOR DE COORDONATE” 


£5 PRINT "PUNCTUL ESTE PE CERC" MOVE -L1,o 
70 STOP DRAW LI,0 

72 REM "PUNCT EXTERIOR CERCULUI” MOvE 0.-Li 
73 REM "CALCULIIL PLINCTELOR DE TANGENTA” % DRAW OLLI 

7% LET RI=SOR(VuV+HsH-R*R) END 


IF H=O0 THEN 100 

LET TIrATN(V/H)+ATN(R/RI) 
LET T2=ATN(V/H)-ATNI(R/RI) 
GOTO 110 

LET Ti=-ATN(H/VD)+ATN(R1/R) 
LET T2=-ATN(H/V)-ATN(RI/R) 
LET Lirs-tHsCOStTI)+VmSIN(TI)) 
LET Lar-tH*COScT2)+V*SIN(T2)) 
LEȚ Zi=X1+LIsCOSTI) 

LET Wi=YI+LI»SIN(TI) 

LEȚ 22=X1+L2»COS(T2) 

LET W2=YI+L2rSIN(T2) 

PRINT "COORDONATELE PUNCTELOR DE TANGENTA SINT" 


S5 PRINT "XA-"șZ21,"YA="șW1 


PRINT "XE="+: 72, "VB="4 42 

PRINT "DORITI AFISARE GRAFICA ? (DA,NUj" 
INPUT Dpc1) 

1F D$t1)="DTHEN 290 

REM "DEFINIREA SPATIULUI LITILIZATOR” 

REM "SI A. PORTIUNII DE ECRAN PENTRII AFISARE" 
LET LI=ABS(X0 

1F LIXARS(YO) THEN 195 


O LET L1=ABS(VYO) 
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12.13. Cucul cu polinoame 


Se va studia împărţirea unui polinom : a4X"-+agxa-1 +. „ka, ea printr-ug 
polinom ireductibil şi unitar peste R, anume cazul împărţirii prin x-pa şi 
xi-ppx-bg. Goefieienţii polinomului cît : byx"-kbax*-1-+...-k+başa Vor fi detez- 
minați prin identificare în relaţia : 


(bx -kbox1 4 e kbaşa) (X-Pa)-Fba șa Sax" Pază l-a e e Pânei 
ande cu baga s-a notat restul. Rezultă 3 


b.=0 şi ba =a—ab,, pentru pa 2, ...3 ni. 


Programul de calcul al coeficienţilor cîtului şi restului este dat mai Jes. 


Similar, se obține şi programul ce determină cîtul şi restul împărţirii 
polinomului a4X*-kapx" 1 e. «Pâna Prin polinomul x2+px-+q obţinindu-s s 
situl și restul rx+-s. 

Programele de împărţire se pot utiliza în descompunerea în factori a 
polinoamelor în găsirea rădăcinilor unui polinom, în calculul valerii unul 
polinom. 


RER  mnnaunnunnnunnkienn tan una ua S REM “a%ueRRHRR NR XR RRARRRXXRERNRD 
REM *xIMPARTIREA UNUI POLINOM DE n 10 REM * IMPARTIREA UNUI POLINOH DŞ e 
REH “xGRAD N PRINTR-UN POLINOM [) 15 REM * GRAD N PRINTR-UN POLINOW 
REM **DE GRADUL 1 : X+A L] 20 REM * DE GRADUL DOI L] 

40 REM mea a ae 0 n în DE DD DE DC 0 E E DR ME DE Mt ea 25 REM "XRRARXRARXRN AIE RN EAI RIP 

60 PRINT *N=", 30 PRINT "N="; 

70 INPUT N 40 INPUT N 

60 DiH A(N+20,Bi+2> 45 DIM A(N+1),B(N+3) 

90 POR î = 3 TO N+ SO PRINT "COEFICIENTII POLINOHULUI * 
200 PRINT “Atel; 60 FOR I=1 TO N+1 3 
120 INPUT At 70 PRINT "At*;];")s*y 
120 NEXT 3 80 INPUT At(î) 

130 PRINȚ “as*; 90 NEXT 1 

140 INPUT A 100 PRINT "COEF. DIVIZ20RULUI* 
150 Bt1)=0 110 PRINT *X"2+Prx+Q” 

160 POR 1 = 2 TO N+2 Fi 120 PRINT "P="; 

170 B(I)=AtI-20-AxB(1-12 130 INPUT P 

180 NEXT 7 140 PRINT "Q=*; 

185 REM 150 INPUT O 

190 REM “AFISAREA REZULTATULYI 200 Bt(1)=0 

200 REHN 210 Bt2)=0 

210 FOR 12 TO Ne: 220 FOR 1=3 TO N+3 

220 PRINT *Bt*;1p*)=*;Btd9 230  B(1)=A(1-2)-P*B(1-1)-0uB13=22 
230 NEXT 1 240 NEXT ] 

240 PRINT "Rs" BiN+20 250 REM “AFISAREA REZULTATELOR” 
250 END 260 FOR 1=3 TO N+1 


270 PRINT *B(*;1;*)="*;B(1) 
280 NEXT 1 

290 PRINT “AFISARE REST: RX+Ş * 
300 PRINT “R=";B(N+2) 

310 PRINT *$=*;B(N+3)+PXB(N+22 
320 END 


12.14. Rezolvarea ecuațiilor algebrice prin metoda Bairstow 


Ecuațiile algebrice, f (x)=—0, unde f este un polinom pot îi rezolvate 
prin metode aproximative. În continuare se va descrie o metodă care constă 
in descompunerea polinomulu: în produs de polinoame de gradul doi (metoda 
ii — Mieroealeulatorul personal aMIG — vol. II 
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Bairstow). Fie polinomul £ (3) =asxitras e, „Fânu şi (p, q) două 
numere. Împărțind polinomul prin x2+px-+q obţinem + 


n+l 


Îi autrt= (5, bi si) (px q)-rra-+s 


Prin identificare se obțin coeficienţii b,, r şi s în funcţie de p şi q: bi=b=0 și 
(1) b=a:-2—Pbi-a—Qbi-2, pentru 3sis<n+3 
(2) iar, T=başa ȘI S=basstPbnsa 


Va trebui să se găsească p și q astfel încît: r(p, q)=s(p, q)=0. Acest 
lucru revine la rezolvarea sistemului : 


n Ap 2 Ag “e 


s--Ap 2 Ag ii 


Pentru calculul lui =-D se vor calcula a prin recurenţă din expresiile 


obţinute prin identificare (1). 


Diac za 2bia __q „die 
âp bi-a p âp. q 2p . 
Notînd cu= pentru ls<isn+3, şirul c, va fi: cy=cz=0 şi 


pb —PCi-a—QCi-2 pentru 3sisn+3. 
Din formulele (2) se obține: 


Daia 85 
3 Cap şi da 9 Cana 


Pe de altă parte, derivind formulele (1) se obține : 


2b, 


i '0b „  0s 
3 CI-1 deci aq au ȘI a =C ns tPC asa: 


2 q 
Sistemul (3) se va rezolva prin metoda Cramer : 
d= C2ppFCast (Cn+stba+2) 


Ap= Pati ata DauiCaga şi Aq ai —başi Aaeagi + Peaga) ba 3Cnş2 
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Se defineşte apoi un şir de puncte (p'”, q') care, în principiu, converge 
către un punct (p, q) încît: x2+px+q divide pe £ (x). Practic, numărul de 
puncte (iterații) este limitat la k=—100, în program, utilizîndu-se ca condiţie 
de oprire: 

|Ap | + | Aa| 


<e 
lpl+|a] 


(e fiind luat 10-* în program). 
Ecuația x2-+-px+q=0 este apoi rezolvată în C folosind formulele uzuale. 


n+l 
Programul continuă cu polinomul cît 3, b,x2+1-!, dacă gradul său este mai mare 
i=3 
decit 2. 

60 REM maumnanunnunnnamnnnunnmnnnemanana 570 REM “ULTIMUL FACTOR" 
65 REM n” REZOLVAREA ECUATIILOR ALGE- » S90 REH 

70 REH w»" BRICE-METODA BAIRSTOU- ii 590 IF N=2 THEN 620 

75 REM mnmanmmnrnnwnmeamannmnannaennnnma 600 X==A(2)/At1) 

80 PRINT "GRADUL N=*; 605 Y=0 

90 INPUT N 610 GOSUB 800 

95 DIM A(N+1),B(N+3),C(N+3) 620 GOTO 650 

100 FOR I=1 TO N+i 630 P=A(2)/At1) 

110 PRINT “A(*;];*)=*; 635 0=A(3)/A(1) 

120 « INPUT A(P) 640 GOSsUB 670 

130 NEXT 1 650 sToP 

150 P=0 670 REM "REZOLVAREA EC.:X"2+PnXx+0=0" 
155 0=0 680 REH 

160 k=100 670 D=PwP-âxQ 

165 E=.001 700 IF D<O THEN 750 

170 REM * TEST ASUPRA GRADULUI 710 D=SaR(D) 

180 REH 715 Y=0 
210 IF N <= 2 THEN 570 720 X=t-P+D)/2 

220 REM "CAUTARE P SI Q 725 G0SUB 800 

230 REM 730 X=(-P-D)/2 

240 REM "INITIALIZARE CONTOR CICLURI 735 G0SUB 800 

260 J=0 740 RETURN 

280 1F J>Kk THEN 990 750 D=saR(-D)/2 

290 J=J+1 755 X=-P/2 

300 REM "CALCULUL COEFICIENTILOR 760 Y=D 

310 REM *B(1) SI C(1)" 765 GOsua 800 

320 B(1)=0 770 Y=-D 

322 B(2)=0 775 G0SUB 800 
324 C(1)=0 780 RETURN 
326 Ct(2)=0 800 REM "AFISAREA REZULTATULUI” 
330 FOR 1=3 TO N+3 520 IF Y=0 THEN 850 

340  B(1)=A(1-2)-Px*B(1-1)-Q*B(1-2) 830 PRINT X;"+(";Y;e)le* 
350  C(I)=-B(I-1)-PrC(l-l)=amci(1-2) 840 RETURN 

360 NEXT 1 850 PRINT X 

370 REH "CALCUL DP SI Da” 970 RETURN 

380 REM 990 PRINT "PROCES DIVERGENT* 
390 X=B(N+2) 999 END 


392 Y=B(N+3) 

394 Z=C(N+1) 

296 T=C(N+2) 

398 U=C(N+3) 

400 D=T*2-2Zm(U+X) 

410 IF D=0 THEN 990 

420 A=(2xY-X*T)/D 

430 B=t-X*c(axZ+PnT)-YRT)/D 

440 REH "NOILE P SI Q* 

450 P=P+A 

455 0=a+B 

460 F=(ABS(A)+ABS(B))/(ABS(P )+ABS(Q)) 
470 IF FE THEN 280 

480 REM "S-A GASIT POLIN, FACTOR* 
4895 REHN 

490 GOSUB 670 

S00 REM "INLOCUIREA POLINOMULUI * 
510 REM 

520 N=N-2 

530 FOR I=1 TO N+1 

S$40  A(I)=B([+2) 

3550 NEXT 1 

560 GOTO 170 
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12.15. Metoda celor mai mici pătrate 


Metoda celor mai mici pătrate este o tehnică curentă de determinare s 
unei curbe y=f (x) ce aproximează o mulţime de puncte date: 


(Yu, X.), (Y2, X2), îs... (Yo Xa). 
Metoda constă în minimizarea sumei patratelor „distanțelor“ : 092 P Mă 


sa. Pd2, unde d;=y—f (x) este distanţa între ordonata punctului dat și 


cea aproximată. Metoda este aplicată frecvent pentru funcţii exponenţiale 
san polinomiale. În toate cazurile, metoda necesită rezolvarea unor sisteme 
de ecmaţii algebrice liniare, necunoscutele fiind coeficienţii ecuaţiei curbei. 


De exemplu, se dorește aproximarea a M puncte date prin curba y=ax?. Pen- 
tru aceasta trebuie rezolvat un sistem de două ecuaţii cu necunoscutele a și B. 
Ecuațiile se obţin prin logaritmarea ecuaţiei y=ax* şi anularea derivatelar 
parțiale în raport cu log.a şi b: 


M M 


M-log a+ Ş, (log x.) b= > log Y+ 
dl i=l 


M M M 
| 3, log x.) loga + ( 3, (log *)*) b= 3, (log x! (log y,) 
ta) i=l da i 


Aceste ecuaţii sînt liniare în loga și b. 
Dacă se dorește aproximarea prin curba y=ae0*, atunci trebuie sa se 
rezolve sistemul : 


M M 

M loga | 5 *) b= Ş log y, 
t=l | i=l 
M 


M M 
(5 *.) log a+ | E, 4) b= 3] x, l0g]y 
sl i i=l 


==] 


Pentru aproximarea printr-o funcţie polinom : Y=CPCoXP ae Pui”, 
coeficienţii C, se vor obţine prin rezolvarea sistemului : 


M M d 
M-C, + (5 :.) Cat... (3 x) Cai y Yi 


M M M M 
(n) en (aere [poe eu o 


— —. . -. s o. €. o... exe on on sm m on o. me am em am sm se ame ema come me 


M 'M M M 
(Sie) car (3 ei) (Sen) eu Ser 


Metoda celor mai mici pătrate 165 


Yoate aceste exemple conduc la rezolvarea unor sisteme de ecuaţii liniare 
pentru care vom utiliza instrucţiunile matriceale disponibile în limbajul 
BASIC. 


Exempluiide program 


5e dorește găsirea unei funcţii (putere, exponențială, sau un polinom de grad mal mio 
decit b), care aproximează cel mai bine un număr de puncte date (maximum 100). Coordonatele 
X, 3. ale punctelor vor îi convertite în logaritmii lor de către program, dacă va fi necesar. Numă- 
rul de puncte date și tipul curbei de aproximare fiind variabile, se vor utiliza facilităţile de 
"dimensionare a tablourilor. 


Programul va imprima ecuaţia curbei de aproximare cu coeficienţii calculaţi, lista coor- 
donatelor punctelor date și lista valorilor funcţiei (y (x,)) ce le aproximează, precum și eroarea 
comisă (suma pătratelor). Valoarea erorii va fi utilizată pentru alegerea tipului funcţiei de apro- 
ximare. Variabilele utilizate de program sint următoarele i 


Xa vector de 100 de elemente ce va conţine valorile x, introduse 

== vector de 100 de elemente care va conţine valorile y, introduse 

Am matrice de 10) linii și 10) coloane ce va conţine coeficienții necunoscutelor sistemului de 
ecuaţii liniare 

Bm imversa matricei A 

Gm vector de 10 elemente conținînd necunoscutele sistemului. 

Bmn vector de 10 elemente! ce conţine al doilea! membru al sistemului 

im nomărul; de puncte 

Ma variabilă ce indică metoda de aproximare, dorită 1 


50 pentru funcţie putere) y=a» 


i=1 pentru funcţie exponențială! ye=aeb* 
N 
B=2, 3 ..., 10 pentru funcţie polinom y= y, Cazi! 
t=l 
B1 m» uumărul de ecuaţii simultane 


Hi2 dacă N=( sau 1 
MIN dacă N=2, 3, .../10 
$. Programul funcţionează! astfel 


i, [Citește datele 
a) Citește M valori pentru yy! și M valori pentru x, 
b) Citește valoarea lui N care dă tipul curbei de utilizat 


Calculează log x, și log Ip dacă ) =0, sau log y, dacă N=1,spentru i=1, 2, ,..,M. 


Caiculează elementele tablourilor [A şi D, utilizînd formulele corespunzătoare curbei alese 


Atigează ecuația! curbei 


„ Eaiculează valorile y (x), pentrul i=1, 2, ...,M 


Că 

3 

6. Bezolvă sistemul de! ecuații. 

L] 

Li 

7. Eaiculul erorii, suma pătratelor distanțelor di 4-d24 „tdi, 

8. Afişarea coordonatelor x,, y; și a valorii funcţiei y (x,), pentru i=1, 2, ..., M, apol afișarea 

£ ilie că dacă N==0 sau î, trebuie reconvertite valorile log y, și log x, în y, şi respectiv 
s,. 
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9. Se reprezintă grafic punctele (x, y,) şi apoi se trasează curba care unește punctele de inter- 


polare calculate. 


10. Dacă se dorește o nouă rulare cu aceleași date, se revine la punctul 1.b). 

Instrucţiunile MAT ZER din liniile 200, 205 realizează redimensionarea matricei A şi 
a vectorului D la fiecare nouă execuţie a programului. În liniile 370 și 375 tablourile B și C sînt 
implicit redimensionate pentru a corespunde matricei A și vectorului D. Rezolvarea sistemului 
de ecuaţii este substanţial simplificată prin utilizarea instrucțiunilor matriceale (liniile 370 


şi 375). 


VON ABUuN= 
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REM 
REM 
REM 
REM 


0 E E E E ete e 
"x APROXIMARE PRIN METODA *" 
"m CELOR MAI MICI PATRATE »" 
"axe aRporaazuaazaaa” 
DIM X€100),Y(100),Z4100) 

REM “CITIREA DATELOR” 

PRINT "EITE PUNCTE DEFINITI ?* 
PRINT "Ma 

INFUT M 

PRINT "INTRROUUCETI ORDONATELE Y” 
MAT INPUT Y(M) 


2 PRINT "INTRODUCETI AESCISELE x" 
= MAT INPUT XM) 


REM "CITIREA DATELOR” 


PRINT "INTRODUCETI; N=0 PENTRU PUTERE" 


PRINT » N=1 PENTRU EXPONENTIALA* 
PRINT * N=NR. TERMENI POLINOM" 
PRINT 1Nan 

INPUT .N 


REM "CALCULUL LOG(X) SI LOG(YV)r 


O REM “DACA E NECESAR" 


IF N>=2 THEN 170 
FOR I=! om 
YI IaLOGAYVCID) 

NEXT 1 

IF N=1 THEN 170 
FOR l=1 T0M 

jX(LDeLOG(x(DDD N 

NEXT I 


O REM "CALCULUL MATRICEI A" 


REM “SI A VECTORULUI D* 


5 NI=N 


IF Ni>=2 THEN 200 
Ni=a 


O MAT A=ZER(NI, NI) 
5 MAT D=ZERINID 


O At1,1)=M 


N2=2eNi-1 


FOR Di=2 TO N2 


s=0 

FOR K=1 TOM 
3=5+X (K+ (D=) 

NEXT K 

FOR = TD nt 
Sashteuri 
1F UNI THEN 265 

IF S2>N1 THEN 2643 
A(S2, JI=3 
NEXT + 
IF DI>NI THEN 265 
FOR Bi TOM 


DE: )=DALr DVR) RX (KD" (Die 


NEXT E 
NEXT Di 
FOR K=1 TOM 
pure? + 
NEXT K 


290 REM 
360 REM "REZOLVAREA SISTEMULUI * 
365 REM 


Metoda celor mai mici pătrate 


MAT E INV(AD 
MAT C=BxD 
REM 
REM “TIPARIREA ECUATIEL* 
REM 
ÎF N>1 THEN 420 
CI=EXP(C(1)) 
IF N=i THEN 420 
PRINT "PUTEREA V=";CisoagaeCt2) 
GOTO 490 
PRINT "EXPONENTIALA V=";C1ş “uEXP(“s C(2I3 “aR9e 
GOTO 490 
IF Ct2)>=0 THEN 445 
PRINT “POLINOM YV="3G(1)pCC2)p xp 
GOTO 450 
PRINT "POLINOM V=“sC(1)ş"enaCc2)p “aka 
IF N=2 THEN 485 
FOR I=3 TON 
IF CUI)>=0 THEN 475 
PRINT CiL); "xx" "e 1-13 
GOTO 420 
PRINT "+" gC(I)g "Xp lolg 
NEXT 1 
PRINT 
REM 
REM “AFISAREA REZULTATELORe 
REM 
IF N>=2 THEN S45 
FOR Isi Tom 
VULIsEXP(YIDDD 
NEXT 1 
IF N=1 THEN S45 
FOR I=1 TOM 
X CI O=EXPUXULDD 
NEXT ! 
PRINT 
PRINT "Y(DAT)", "Y(CALCULATI* 
s=0 


O FOR I=1 TOM 


IF N>=2 THEN 595 
IF N=i THEN SS% 
YVi=CisX(ID"C(2) 
GOTO 415 
VI=CIsEXPIC(2)RXLID) 
GOTO 619 
vVi=cci) 
FOR J=2 TON 
YI1=YI+C(D RX CI)" cet) 
NEXT J 
S=S+(YV(1)-Y1)"2 
PRINT Y(D,Y1 
2(1)=Y1 
NEXT 1 


O PRINT 


PRINT "EROAREA=";S . 
REM "CALCIILUL VALORILOR MAXIME” 
REM "PENTTRU CELE DOUA COORDONATE” 
U1=ABS(X(1)) 


O Ha=ABS(Y(1)) 


FOR [=2 T0 M 


1F U1Y=ABS(X(1)) THEN 670 
UL=ABS(X(ID) 
1F U2>=ABS(Y(1)) THEN 680 
W2=ABS(V(1)) 
NEXT 1 
WINDOW =U1,U1,-UZ,U2 
T=u2/S0 
INIT 
FOR 1=1 TO M 
MOVE XI), YV(rI=T 
DRAW XCID,YV(I) 
NEXT 1 
MOVE X(1),Z(1) 
FOR 1=2 TOM 
DRAW XCID,Z(I) 
NEXT 1 
PRINT "INTRODUCETI VALOAREA 1 PENTRU" 
PRINT "OPRIREA EXECUTIEI" 
INFUT $ 
IF S<>1 THEN 15 
END 
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10.10. Transformata Fourier rapidă 
c: Yransformata Fourier constituie de mai mulţi ani un instrument raate- 
matic utilizat în numeroase domenii, ca de exemplu în optică, acustică, fizică 
suantică, telecomunicaţii, teoria sistemelor şi a proceselor aleatoare etc. 

Fourier a demonstrat că orice semnal periodic poate fi considerat ca e 
sombinație de oscilaţii sinusoidale- de frecvenţe î0, 210, 310 ... Astfel, dacă 
x (t) reprezintă amplitudinea semnalului în funcţie de timp, x (t) se poate scrie 
ca suma unui număr oarecare de funcții sinusoidale. Deoarece pentru fiecare 
semnal, fazele iniţiale nu sînt identice, sint devine sin (ot-+p)e 


sin (0t+9)= sin ot cos e-+-sin e costat 


umde cos q și sin q pot fi considerați coeficienţi. 
Astfel, toate funcţiile periodice se pot descrie în felul următor s 


x (î)m=Ao-tka, sin ot-+-b, cos ot 
ag sin 2wt4+- ba cos 2ut 
“bag sin 3wt-+- bg cos 3ot 
Fe. 


MP m i i i 
unde: e _ „2ri (2 pate perioada şi f frecvenţa semnalului) ; 

az, A2, a... Du be, „.. sînt constante care reprezintă amplitudinea îis- 
aăreia din componente ; 

A este valoarea medie. 

Această relaţie reprezintă descompunerea în serie Fourier a funcţiei 
perioadice x (t). În continuare, problema principală este calcularea coeficien- 
ților As, ax, bu, a2, ba, ..., care se numesc coeficienţii Fourier. 

Deoarece A() este valoarea medie a semnalului periodic x (t), acest costi 
silent se calculează imediat cu relaţia : 

7 
Ag= =$, x (t) dt 


Fourier a demonstrat că ceilalți coeficienţi se obţin din formulele : 
2 ef 
A et CA x (t) sin notăt 


E ai 
b,= a j, x (t) cos notdt. 


Be definește transformata Fourier a unui semnal continuu x (t) prir 
Integrala o 


+ 
X 0)= i x (£) e-Mzitat 
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Parametrii t şi f reprezintă în general timpul şi frecvenţa, dar foarta bine 
acest calcul se poate aplica la o mare varietate de fenomene unde t și f pot 
reprezenta alţi parametri. 


Vransformata Fourier inversă se defineşte prin relația 
+0 £ , 
x (t)= e >4 (î). ela af 


Prin utilizarea dispozitivelor numerice se obţine adesea un semnal discret 
x (n), printr-o eşantionare a semnalului iniţial x (t). În acest caz integrala 
Fourier definită mai sus poate fi înlocuită prin transformata Fourier discretă i 


N-— 
x e d x (n) esa g 
a=p 


ande k =0, ], ...p N—I. 


___ Mulțimea celor N valori x (n) constituie o reprezentare discretă a fune-- 
ției x (), iar cele N valori X (k) o reprezentare a spectrului X (£) + 


x (n) x (d) 
X (kh)o-X (î) 


Algoritmul transformatei Fourier rapide permite reducerea timpului de- 
execuţie a unei transformate Fourier discrete. 

Transformata Fourier discretă a unei secvenţe finite de valor (x (n)f, 
0<«n<N—1 poate fi prezentată într-o manieră mai practică a 


N=i 
X (= Îi x (n) 


nai E 


unde 
 WWDE e” 2ink/N 


Aceustă relaţie arată că pentru o secvenţă de N numere o evaluare directă 
necesită (N—1Y înmulţiri şi N.(N—1) adunări. Pentru valori ale lui N, de 
exemplu 1000, ca ordin de mărime, un calcul direct implică o cantitate foarte 
mare de calcule, chiar şi pentru un sistem puternic. 

Principiul transformatei Fourier rapide constă în separarea secvenţei- 
inițiale de N valori în două secvenţe mai scurte ale căror transformate discrete 
pot îi combinate pentru a produce transformata discretă a secvenţei de N 
puncte. 


Astfel, dacă N este par și secvenţa originală a fest împărţită în două see- 
venţe de N/2 puncte, este necesar un număr de înmulţiri de ordinul N2/2 pentru: 
a evalua transformata discretă pe N puncte. Dacă N/2 este la rîndul său par, 
atunci secvenţa de N/2 valori se poate de asemenea împărți în două secvențe 
de cîte N/4 valori fiecare, pentru care se calculează independent transfor- 
matele și procedeul poate continua, obțin îndu-se de fiecare dată creşterea vite- 
zei cu un factor de aproximativ 2. Dacă N este e putere a lui 2, procesul se: 
poate repeta pînă la calcularea în final a transfermateler pentru deuă puncte. 
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Programul BASIC prezentat efectuează calculul transformatei Fourier 
discrete pentru un semnal definit, introdus în liniile 170 la 200 : 


x (n) =sin (27 *8,555/N) 
unde = pi 2, sa N 


Li 
10 PCM"TRANSTORMATA, FOURIER RAPIDA” 
90 INPUT ft 1 
15 PRINT"IMAP DC VALORI DISCRETE 2 "N 
50 MoLGIG(ND/LOG(2) 
£0 DIM PM) 
70 DIM R(M 
go DIM acm 
So DIM XD 
100 Pita 
105 PI=4*ATN(1) 
110 Fop ki ToM'e 
120 PRL) =2Prra 
120 MEXT K 
I/N 
sss 
10 E-NOA 
471 FOR K-4-TO n 
180  R(KI-EIN(BKD 
170 (Ro 
200 NEXT HK 
2410 M2=M/8 
241 MP-Nea 
aa dA a 
250 FOR 1-1 TO MO 
220 IF Iu THEN 200 
270 Ta=R(n 
204 Ta) 
280  R(JD-RU? 
221 DUDU) 
290 RUD-TA 
204 OtionTa 
300 K=M2 
210 1F K>*y9 THEN 220 
Si nu 
i dai r=r/e 
219 GOTO 310 
320 Jr 
330 NEXT 1 
370 rar KA TOM 
SEO L9=P(D 
Sat  LirL9/2 
200 ua 
391  u8=0 
100 MP-COS(PAZLI) 
101  WE-SIN(PI/LI) 
110 FOR ui TOLI 
120 FOR 1=4 TO M STEP L9 


420 B?-=R(I) 

421 Es=0(1) 

140 1P=1+L1 

150 TI=R(19)RU9-0c19)xuU8 
120 T2=R(I9)KUS+0(49)xU9 
170 R(I9)B9P-TȚI 

171 Q(19)=B9-T2 

420 R(ID-EIP+T1 

asi C(ID=BO+T2 

470, NEXT 1 

So UZ7=U?sW 9 Uzina 

s10 UZ? lg 

S20 


$30 MEXTuy 

10 EXT [i 

Seo FOR H-1 TON 

570 X (ED CCRCKI RR(KDI STOCK) Ra (RI) 


€00 MEXT k 

€10 PRINTAK pe 

S20 PRINT" k REAL PHAOINAR AMPLITUDINE” 
1 PRINŢ enma omani mmm o m i 


FOR F-1 TON 

eta PRINT Fi" "9 

[= =A8] PRINT INT(100001R(r)), INT(10000*0tK)), INT(10000xX(k)) 
+3S PRINT 

sto NEXT KE 

-BLO END 
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Pornind de la secvenţa de N valori x (n), se generează două secvenţe de N/2 
puncte fiecare X, (n) și X2 (n), prima conținînd termenii de rang par din sec- 
venţa inițială, iar a doua termenii de rang impar: 


Xa (n)=x (2n) 
A Xa (n) =x (2n+1) 3 
unde n=0, 1, 2, ... N/2—13 
Se poate arăta că transformata Fourier discretă a secvenţei iniţiale se 


scrie făcînd compunerea transformatelor Fourier pentru cele două secvenţe 
inițiale x, (n) și X2 (n): 


X (0) = Xa 00) Wa) 
unde X (k), Xa (k) şi Xe» (k) sînt transformatele Fourier discrete ale secvenţelor 
x (n), x (n) şi x2(n) şi: 
WAX == î027/N) k 


Datorită proprietăţilor de periodicitate ale transformatei Fourier, relația 
precedentă se poate scrie de asemena : 


X (k)=Xa (k—N/2)—Wk, Xe (k—N/2) 
pentru k cuprins între N/2 şi N—I, iar: 


KANP — Wk WN/2 = —WEk 
WR? Pacii due ama WR 


12.17. Simularea salturilor unei mingi 


Se va descrie mișcarea unei mingi de cauciuc care sare sus-jos sub efectul 
greutăţii proprii și în același timp se deplasează pe orizontală cu viteză con- 
stantă. Se presupun date: înălțimea iniţială de la sol (H), viteza orizontală 
(V) şi numărul de salturi ale mingii (N). Se dă de asemenea coeficientul de resti- 
tuire (C) definit ca raportul vitezelor imediat după și înainte de salt. 

Pentru a calcula poziţia mingii în timp se dă un increment mic de timp 
(D) şi se aplică legile fizicii pe acest interval :j 


T(U+D=T(D+D 
IX (+D=X (D+V*D 
Z (+1=Z (D—G*D 


y ip [YU+D=Y(D+0.5*7 (D+Z (+1))*D 
Pe: i 


X este deplasarea pe orizontală (iniţial nulă), Z este viteza pe verticală 
(de asemenea nulă la plecare), Y este înălțimea deasupra solului, G este accele- 


172 Microcalculatorul aMIC în învățămînt. 


rația gravitaţională (9,81 m/s?). Indicii ] şi 14+1 corespund valorilor diferitelor 
variabile la începutul și la sfirşitul incrementului de timp. 

Dacă are loc o ciocnire pe durata incrementului de tinip, formulele ce se 
aplică sint puţin modificate. Prezenţa unei ciocniri este semnalată printr-o 
valoarea negativă a lui Y (1-1), ce ar fi imposibilă fizic. Cînd se produce aceasta, 
Z (14+1) şi  (1+1) se recalculează ca mai jos. 

Mai întîi se calculează timpul necesar mingii pentru a atinge pămîntul, 
plecînd din poziţia sa de la începutul incrementului de timp. Dacă se notează 
acest timp, DI, atunci: 


D1=D*Y (D[(S(D—Y,U+1)) 
Se calculează apoi, viteza pe verticală imediat inainte de ciocnire e 
Z=Z (1)—G*D1 
Viteza pe verticală imediat după ciocnire va fi deci: 
Zl=—C*(Z (1)—G*D1) 
Înălţimea deasupra solului la sfirșitul incrementului de timp este a 
Y (1+1)=0.5*(Z14+Z (14+1))*(D—D1) 
ar vitezu pe verticală la sfîrșitul incrementului de timp : 
ZU-+1)=zZI—G* (D—D1) 
Programul funcţionează astfel: 
1. Citeşte valorile H, V, N, C şi D și testează validitatea lor 
2. Iniţializează parametrii : 
1=1 (contor de incrementare)  X (1)=0 
B=0 (contor de salturi) Z (1)=0 
T (1)=0 Y (1)=H 


3. Calculează deplasarea pe orizontală şi pe verticală, şi viteza pe verti 
cală cu ajutorul formulelor de mai sus. 


4. Dacă mingia loveşte pămîntul pe parcursul increnientului de timp 
se testează dacă trebuie calculat saltul următor sau se termină programul. 

a) Dacă B<N se recalculează viteza pe verticală și « plasarea pe verti- 
cală cu formulele modificate, se incrementează contorul de salturi (B=B+1) 
și se trece la incrementul de timp ur:: ător. 

b) Dacă B=N se calculează timpul și deplasarea pe orizontală în mo- 
mentul ciocnirii. 

5. Afişează valorile lui X şi T urmate de o tabelare completă pentru 
ToX, Yi Z. 

6. “Prasează grafic Y funcţie de T, 
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7. Se reîntoarce la pasul 1. Dacă se introduce H=( se iese din program. 

Programul acceptă 100 de incrementări de timp. D trebuie ales astfei 
incit să existe între 8 și 20 de puncte de fiecare salt. 

Calculul valorilor T (1+1), X (1+1), Z(I+1) şi Y (1+1) este efectuat 
de un subprogram. 

Se observă că de fapt programul integrează ecuaţia diferențială d?y /dt? == 


. . pe. x 
—g eu ajutorul metodei Euler modificată. 

007 PEM Pe e De 2 În e 18 e în e 9 e DD DA De e a ape ete 310 D=DeYiTD/YV(ID=Yvile 

005 REM *» SIMULAREA SARITURII UNEI MINGI »* 215 GO SUB sso 

010 REM o em ee în 2 4 8 2 D928 8 2) 8 A 2 2 e 320 I1i=1+1 

Os 32$ ȚisTiIt) 

070 REM “INTRODUCEREA DATELOR SI VERIFICAREA LOR” 320 YisxtIi) 

025 325 

030 DIM Yt100),Y(100),2(100),Tt100),Dst1) ZAO REM "AFISAREA REZULTATELOR NUMERICE” 

035 PRINT "INALTIME INITIALA(M); (0=STOP)*s 245 

010 INPUT H 350 PRINT "DISTANTA ORIZONTALA PARCURSA="; X13* Me 
045 IF H>=0 THEN 040 355 PRINT “TIMPUI CERUT="sT13" Ss" 

030 PRINT "INALTIME NEGATIVA-EROARE!* 340 PRINT 

05% 60 TO 005 361 PRINT "TIMP", “DIST.ORI2.*, "INALTIME", "VI T. VERI. - 
0680 îF H=0 THEN 600 362 PRINȚ “==s=ssnnnmmenssessezesssssameneseae 

065 PRINT "VITEZA ORIZONTALA (M/S)"$ 365 FOR I=taTO 11 

070 INPUT V 370 PRINȚ "Te" T(1), “XX (1), "Ya" VI), "2 Zebe 
075 PRINT "NUMAR DE SALTURI "ș 371 PRINT 

090 INPUT N 375 NEXT 1 

0855 IF N>=0 THEN 100 380 PRINT 

090 PRINT "NLIMAR DE SALTURI NEGATIV-EROARE!” [cizi] 


075 GO TO 075 970 PRINT "SOLUTIA GRAFICA A PROBLEMEI (D/N)* 

100 PRINT "COEF ICIENT DE RESTITUIRE“ 395 

105 INPUT C 400 INPUT n$ 

110 IF Ce-i THEN 123 405 IF D$<>"D"* THEN 025 

115 PRINT "COEFICIENT SUPRALINI TAR-EROARE|* 410 INIT 

120 GO TA 100 415 VIEWPORT 20, 140, 10,90 

125 PRINT "INCREMENT DE TIMP(S)"3 420 L=-11/10 

120 INPUT D 425 R-11811/10 

19% IF DO THEN 150 420 B=-H/10 

140 PRINT "INCREMENT NEGATIV SAU NUL-EROARE!" 435 T-11xH/10 

145 GO TO 125 440 WINDOW L,R,B,T 

150 PRINT 411 MOVE L,B 

155 AEM "INITIALIZARCA PARAMETRILOR" 442 DRAW R,B 

140 443 DRAW R,T 

165 EB-Tti)=xtposzt1)=0 444 DRAW L,T 

170 Yt35=H 415 DRAW L,B 

175 6-e.si a4€ 

120 450 REM "TRASAREA AXELOR” 

199 REM "CALCILUL VITEZEI SI AL DEPLACARII* 455 

190 REM “PENTRU FIECARE INCREMENT * 450 MOVE L,0 

195 445 DRAW R,O 

200 FOR 1-1 TO 99 470 MOVE 1,8 

205 GAŞIIE S50 475 DRAW 1,T 

219 îF Y(1+1))0 THEN 280 420 

215 IF E=N THEN 210 485 REM "TRASAREA CURBEI * 

223 Di=DaYv (10 /(YcD-YUel)) 470 

230 D2=0 495 MOVE 1,H 

22 Z1=-C5(2(1)-G4D1) S00 FOR 1=2 TO 11 

240 Z(1+1)=21-Gx(D-D1-D2) s05 DRAW 1,Y(r) 

245 YUI+19=0, Se (21 +2(1+1))m(D-D1-D2) 510 NEXT 1 

230 E=E+1 515 MOVE L,E 

253 IF Y(1+19>0 THEN 280 S20 GO TO 035 

260 IF E=N THEN 210 sS25 

aa rcaziicatctat dela S20 REM "SUPPROBRAM DE CALCUL AL VITEZEI SI A - 
=ca 535 REM "DEPLASARII LA SF EMENTULU 

275 GO TO 240 so iai radare E, 

280 NEXT 1 550 Tilzi=T(r)+D 

282 199 555 X(I+ID=XCID+VeD 

285 GO TO 220 540. Zil+i)=Z(1)-GeD 

290 Se5 YVUT+1)=V(1)+0.S0(2(0+19)*2(1)1*D 

293 PEM “ULTIMUL SALT“ 570 RETURN 

300 S00 END 


12.18. Exerciţii de despărţire a cuvintelor în silabe 


Programul constituie un exemplu simplu de aplicare a învăţării progra- 
mate. Se afișează cîte o regulă de despărţire în silabe, urmată de un exemplu. 
În continuare sînt date mai multe exerciţii de verificare pentru regula respec- 
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tivă. Regulile şi exerciţiile sînt codificate prin DATA începînd cu linia 500 din 
program, putîndu-se adăuga noi reguli şi exerciții. 


10 DIN E$(32) ri 
. me i das, Fi 

33 intr. 600 DATA * HOT A -RI - RE =" 
40 PRINT * DESPARTIREA CUVINTELOR IN * 610 DATA * HO - TAR - IRB 22" 
45 PRINT * == nameno 620 DATA * HOT - AR -tRE=3 
SO PRINT * SILABE * 630 DATA "HO - TA- RI -RE=4* 
SS PRINŢ n ------ 640 DATA *0*,4,"2*» 
So PRINT + REGULA *;N 650 DATA 4 
70 PRINT » ==. 660 DATA * DINTRE DOUA VOCALE SUCCESIVE * 
80  GOSsUB 340 670 DATA * CARE NU FORMEAZA DIFTONG * 
90 READ ES(T0) 680 DATA * PRIMA APARTINE SILABEI DINAINTE * 

. . 690 DATA * A DOUA CELEI URMATOARE * 
ri INI E RĂRAPIV : 700 DAȚA * CE -RE-A - LE; LU- A" 
120 PRINT 710 DATA * IN - DI - VI - DUA - LI - TA - TE = 4% 
130 PRINT * EXERCITII * 720 DATA * IN- DI - VI - DU-A-LI -TA- TB =2* 
140 READ E4(TO) 780. DATA + "0ria,ai» 
150 LF E$(2T02) = "0 THEN”180 740 DATA * PO - DE-A - UA = 1" 
160 PRINT ES 750 DATA * PO - DEA - VA >2* 
170 G0T0 140 760 DATA *0*,2,"'2* 
180 READ R 770 DATA S 
190 1 20 780 DATA * DACA & URMATA DE DOUA * 
200 PRINT * RASPUNS? * 790 DATA + SAU MAI MULTE CONSOANE * 
210 INPUT E 800 DATA * PRIMA CONSOANA TRECE LA SILABA * 
220 IF E » R THEN 260 810 DATA * DINAINTEJCEALALTA (CELELALTE) . 
230 1 =1 820 SATA » LA SILABA URHATOARE 

. o 830 DATA * E - XIS - TA ; CO - REC - TA” 
pa uit 40 mă REguLA 840 DATA * HU - NTE- NI - A” 
260 IE 1 <> 0 THEN 280 850 DATA * MUNT - E -N - ta =2" 
270 PRINT * FELICITARI * 860 DATA * MUN - TE-N- IA: 3* 
280 READ ES(T0) Se DATA GA 213 NL An.a” 

a *1* i 4 DA 
Ciara A aaa d sii pd pa 890 DATA * PER - SON - A - LI - TA - Tele 
aortă 209 ara 2 PRI = o acul e TA cata 
. Ă 3 Sa ie E 3 
9 dea Ș Ss me 920 DATA * PER - S0 - NA - LI - TA - TE=4" 
340 ia M 930 DATA *0*,4,"3* 
350 FOR 1 = 1T0H 940 DATA * EXISTA EXCEPTII LA ACEASTA REGULA « 
360 READ F4(T0) 950 DATA 3 
370 PRINT E3 960 DATA * CIND PRIMA CONSOANA ESTE * 
280 NEXT 1 970 DATA * B,C,D,G,P,T,K.F IARA DOUA L,R * 
390 RETURN 980 DATA * AMINDOUA TREC LA SILABA URMATOARE 
400 READ E4(T0) 990 DATA "A - BRE - VI-A: A - CRU * 
410 PRINT ES 1000 DATA * COD - Ru =1* 
420 G0T0 80 1010 DATA * CO - DRU =2" 
500 DATA 3 1020 DATA *0+,2,h1+ i 
510 DATA * DACA VOCALA E URHATA DE 0 * „e AIA . ob i a 2 . 
520 DATA * SINGURA CONSOANA ACEASTA * seral As LOA bol 
530 DATA “ TRECE LA SILABA URMATOARE * RI DATA. "09 Să 
540 DATA * LE - GE; 0- RA" 1060 DATA * DE - HOC - RAT =1* 
550 DATA * DU - NA-RE= 1” 1070 DATA * DE - HO = CRAT =2«* 
S60 DATA * DUN-A-REs20* 1080 DATA 0",2,*1* 
570 DATA * DUN - AR -£=3* 1090 DATA * NI - SET - RU= 1 
S00 DATA * D-UN-A-RBs4e 1100 DATA * NI - SE - TRU = 2% 
590 DATA *0*,1,*e 1110 DATA *0",2,"2* 
2000 END 

12.19. Verificarea ma ete de geografie 
Cc pe e a e a a 0 aa 
bi ) Se 
[Pere ! mere 


R>diapiui ales în cadrul programului este axat pe verilicare a cunoaşterii 
reşedinţelor de judeţ. Examinatului i se solicită să răspundă la 10 întrebări, 
afișînd un număr de 10 judeţe alese aleator și cerînd să se introducă numele 
reședinței judeţului respectiv. După parcurgerea celor 10 întrebări, se afişează 
numărul de răspunsuri corecte. Dacă se răspunde greșit la o întrebare, se indică 
şi răspunsul corect. 


Programul poate fi extins fără dificultăţi pentru orice gen de teste asemă- 
nătoare (verificarea cunoașterii regulilor de circulație, formule, definiţii etc.) 


Exerciţii de despărțire a cuvintelor în silabe 175 


10 PRINT " VERLEIGAREA GUNOSTINTELOR * s 
10. PRIMI e VURIEIUARUA „că 400 DATA * JUDET N + ; ” RESEDINTA 


20 PRINT ”" DENUMIRE JUDET - RESEDINTA * 410 END 
25 DIH-Hs(50),Ss(50),vs(59, 

30 N=o0 

35 T = 39 

40 FOR I = 1717010 

45 FOR J = 1 TO INT(RND(X)uT+l) 

SO READ MS(TO),ssc(To) 

SS NEXT J 

60 PRINT * DATI RESEDINTA JUDETULUI *;H+% 
65 INPUT Vs(T0) 

70 IF V$ 4 Ss THEN 85 

75 Hohe 

80  G0T0 90 

65 PRINT * RASPUNS CORECT AR FI *;S$$ 

90 RESTORE 

95 NEXT I 

100 PRINT * DIN 10 INTREBARI ";H;" ATI STIUT 
110 sToP 

120 DATA * JUDET 1 *;" RESEDINTA 1 * 

130 DATA 


12.20. Verificarea cunoștințelor unui grup de candidaţi - 


Iniţial, programul solicită prin dialog crearea tabelului cu întrebări. 
Fiecărei întrebări, operatorul îi asociază 3 răspunsuri posibile cu indicarea 
răspunsului corect. Se cere apoi numărul total de persoane de examinat. Pentru 


2 DIN 8(20) 
3 DIM U(100,50;,T(50),s(S0) 

4 HAT B = ZER. 

S INIT 

6 PRINT * INTRODUCETI INTREBARILE? (DA/NU) * 

7 INPUT A$ 

8 IP A$ = *DA* THEN 1000 

10 PRINT * DATI NUMERE DE RASPUNSURI CORECTE? (DA/NU) * 
11 INPUT A$ 

12 IF A$ = "DA" THEN 1170 

15 IF B(1) <> O THEN 20 

16 PRINT * FARA RASPUNSURI INTRODUSE * 


18 sToP 

20 PRINT * VERIFICARE DE CUNOSTINTE 
30 PRINT * CITE PERSOANE EXAMINATI 
40 INPUT H 

59 MAT U s ZER 

60 MAT T = ZER 


T 
70 REM * INCEPE VERIFICAREA * 
80 FOR I=1T0M 
90 FOR J= O TO N-i1 
95 IF WU = 0 THEN 140 
100 PRINT G9(J+i) 
110 PRINT RS(J*3+1) 
120 PRINT R$(Jx3+2) 
130 PRINT R%(Jv3+3) 
140 PRINT " DATI RASPUNSUL (1,2,3) 
150 INPUT R 
160 IF B(J+1) = R THEN 210 
170 PRINT * RASPUNS ERONAT * 
180 PRINT * RASPUNS CORECT ESTE *; 
1e5 IF U s 0 THEN 195 
190 PRINTRS(Jx3+B(J+1)(3T0)) 
192 G0T0 230 
195 PRINT B(J+l) 
200 6070 230 
210 PRINT " RASPUNS CORECT * 
220 U(I,J+i) = 
230 NEXT J 
230 8=0 
250 FOR K = 1 TON 
260 Q = Q+U(r,K) 
270 NEXT K 
280 Ti(l) = 
290 PRINT * DIN *;N;* INTREBARI CUNOASTE *, 
295 PRINT Q 
300 NEXT" 1 
310 J=0 
320 FOR 1 = 1 T0M 
330.3 = J+Til) 
350 NEXT 1 
360 K = J/M 
370 PRINT * IN MEDIE CUNOSC *;K,* INTREBARI * 
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380 FOR 1 «1 T0H 
"390 S41) n (T(1)n100)/N 


NEXT 1 
405 REM * GRAFICUL; X=NR. INTREBARB, YeciTi STIU * 
410 INITP 
420 WINDOU -10,N+10,-10,110 
430 HOVE -10,0 


Ş60 HOVE 1,0 

S70 DRAU 1,Si1) 

S80 NEXT 1 

590 sToP 

1000 REHN » INITIALIZARB * 

1005 U=1 

1010 DiH 6%(20,30),R6(3*20,30),B(20) 
1020 PRINT * CITE INTREBARI INTRODUCETI? * 
1030 INPUT N 

1050 PRINT * DATI INTREBAREA SI CELE * 
1055 PRINT * TREI RASPUNSURI * 

1060 FOR 1 = 0 TO N-1 

1070 PRINT * INTREBAREA *;1+) 

1080 INPUT GSt(1+1) 

1090 FOR J = 1 T03 

1100 PRINT * RASPUNSUL *;3 

1110 INPUT RS(1n3+J) 

1120 NEXT JI 

1130 PRINT * DATI NUMARUL RASPUNSULUI * 
1135 PRINT * CORECT * 

1140 INPUT Bi(l+1) 

1150 NEXT 1 

1160 G0To 20 

1170 PRINT * CITE INTREBARI AVETI? * 
1172 INPUT N 

1175 FOR 1 = 0 TO N-t 

1176 PRINT * RASPUNSUL LA INTRBBAREA *;l1+2 
1180 INPUT B(l+1) 

1190 NEXT 1 

1200 60T0 20 


fiecare persoană în parte, se parcurge tot setul de întrebări, cel examinat indt- 
cînd de fiecare dată răspunsul pe care îl consideră ca fiind corect. ma răspuns 
incorect, programul afișează pe cel corect, în vederea însușirii lui. După par- 
curgerea setului de întrebări, se afişează totalul răspunsurilor corecte date de 
examinat. 

La epuizarea examinării tuturor persoanelor, se afișează numărul mediu 
de răspunsuri corecte, caracteristic grupului examinat, şi se trasează graficul 
su numărul de răspunsuri cerecte pentru fiecare persoană în parte. 


12,21. Ordonarea candidaţilor după mediile obţinute 


Exemplul de față realizează ordonarea candidaţilor după mediile obținute 
la 5 probe. Se introduce numărul total al candidaţilor, urmat de numele fiecărui 
candidat şi calificativele obţinute la cele 5 probe. Se afișează numele candida- 
ților și media obţinută, în ordinea descrescătoare a mediilor. 


Prin modificarea liniei 17 se poate modifica numărul de probe. 


: Verificarea cunoștințelor unui grup de candidați 177 


i PRINŢ» DAP ONREDA CARD ERAI (LOR DUFA MEDIE * 
10 PRINT * DATI NUMARUL CANDIDATILOR * 

15 INPUT N 

AIP pe 9 


20 DIM AŞIN,20),M(N),ctP) 

22 HAT H = ZER 

23 PRINT ” DATI NUHELE SI CALIFICATIVUL * 
30 FOR I=1 TON 

33 INPUT ASI(TO)) 

490 Hit) =0 

43 HAT INPUT C 

DO. FOR. 9 | TOP 


&D Hi0) = MCC) 
63 NEXT JJ 

70 Mil) = H(19/P 

75, NEXT | 

gaj 1.1 


g MLD 

J Li 

K 1 

109 1F M(3) <= C THEN 115 
Cc 
K 
1 


= MOD 
= 3 
J = N THEN 130 
120 Vaii 
125 6070 100 
130 REM *" INVERSARSA ORDINEI * 
„135 8% = ASCILTOD) 
140 ASUL) = AS(R(TO)) 
145 AS(KD) + B$ 
150 $ = Mil) 
155 Mil) 2 Hit) 
160 Mik) = S 
165.) 7 ivi 
170 1F 1 <€ N THEN 85 
175. REM “ TIPARIREA * 
180 PRINT " NUMELE *;* MEDIE 
185 FOR 1 =1 TON 
190 PRINT AS(ID,utl) 
195 NEXT 1 
„200 sToP 
210 END 
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Capitolul 13. | Microcalculatorul aMIC în grafică, 


13. 


jocuri, aplicaţii diverse 


1. 'Trasarea strofoidei 


Programul trasează strofoida, conform ecuaţiei : 


__X2(X +a) 
Wire a—X 


Se solicită prin dialog distanţa punctului A faţă de origine. (fig. 13.1) 


PRINT * STROFOLDA * 
PRINT * DATI VALOAREA A * 
INPUT A 

X = 4/3 

Y = SOR(X"*2*(X+A)/(A-X)) 
INITP 

WINDOU -Y,Y,-Y,Y 

MOVE -Y,o 

DRAU Y,0 

MOVE 0,-Y 

DRAW 0,Y 

MOVE X,Y 

FOR X = A/3 TO -A STEP -1 
Y = SQR(X*2x*(X+A)/(A-X)) 
IF X <= 0 THEN 90 

DRAU X,Y 

GOTO 95 

DRAU X,-Y 

NEXT X 

FOR X = -A TO 4/3 

Y = SAOR(X*2%(X+A)/(A-X)) 
IF X >= 0 THEN 125 

DRAW X,Y 

GOTO 130 

DRAU X,-Y 

NEXT X 

sToP 

END 


Fig. 13.1. Strofoida. 


'Trasarea cicloidei 17 79 


13.2. 'Trasarea cicloidei 


Programul trasează cicloida, conform ecuaţiei : 


X=r (i—sin t) 


Y =r (I—cos t) 


unde : (fig. 13.2) 


13.3. 'Trasarea epicicloidei 


r este raza cercului, 


t este unghiul de rotație, 


A este parametru : 


A este 1 punct pe cerc 


1>1 punct exterior cercului 
1<l punct interior cercului 


Se solicită prin dialog valorile pentru r, A precum și numărul total de ci- 
cluri de trasat. 


PRINT * CICLOIDA " 

PRINT " DATI RAZA CERCULUI " 
INPUT R 

PRINT * DATI PARAMETRUL L " 
INPUT L 

PRINT * CITE CICLURI? (1,2,3) * 
INPUT N 

IF N <= 3 THEN 65 

N=3 y 
A = —2x*R 

B = N*2*Plx” 

INITP 


WINDOU A,B,A,B 

REM " TRASAREA AXELOR * 
MOVE A,0 

DRAV B,0 

HOVE O,A 

DRAU 0,8 

REM _" TRASAREA CERCULUI » 
MOVE R,R 

FOR J = 0 TO 2*P1 STEP PL/10 
DRAW RXCOS(J),R+RX*SIN(J) 
NEXT J 

x=o0 

Y = Re(1-L). 

MOVE X,Y 

FOR J=0 TO Nu2xPI STEP P1/10 
X = Ru(J-L*SIN(J)) 

Y = Ra(1-LwCOS(J)) 

DRAU X,Y 

NEXT I 

SToP 

END 


Fig. 13.2. Cicloida. 


Programul trasează epicicloida, după ecuaţiile : 


X=(R-+r) cos 


r R+r 
RI COS A 


Y = =(R+r) sin st —r sin Rae t 
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unde : (fig. 13.3) 


R — raza cercului fix 

Tr — raza cercului mobil 

t  — unghiul format de dreapta care uneşte centrala celor 2 cercuri cu 
axa X. 


Forma curbei depinde de raportul r/R; dacă r=R se obţine graficul 
cardieidei. 
Se solicită prin dialog valorile pentru r și R şi se trasează epicicloida. 


Ss PRINT * EPICICLOIDA * 

10 PRINT * DATI RAZA CERCULUI FIX * 
15 INPUT R i 

20 PRINT " DATI RAZA CERCULUI MOBIL * 
25 INPUT LU 

30  1NITP 

35 A = R+2xL 

40  WINDOU -A,A,-A,A 

45 MOVE -A,09 

SO  DRAU A,0 

SS HOVE 0,-A 

80 DRAU O,A 

65 MOVE R,O 

70 FOR X = 0 TO 2*PI STEP P1/10 

75 DRAW RxCOS(X),R*SIN(X) 

80 NEXT X 

85 MOVE R,O 

= R+L 

= U/R 

= A/R 

= 2*PIkR/L 

OR X = 0 TO H STEP P1/10 
= AxXCOS (BX )-L*COS (CKX) 
= AXSIN(BxX)-L*SIN(CX) 


Fig. 13.3. Epicicloidia. 


13.4. Trasarea melcului lui Pascal 


Pregramul trasează melcul lui PASCAL. pe baza ecuaţiilor : 
X=2R cos? p--a cos p 
Y =2R cos 9 sin ga sin e 
unde (fig, 13.4): 
R este raza cercului 
p este unghiul dreptei care se rotește faţă de axa X 


a este parametrul de care depinde forma curbei 
(dacă a/R=2 se obţine graficul cardioidei) 


Se solicită prin dialog valorile pentru R şi pentru raporiul a/R (nu se 
dă valoarea direct pentru a). 


Trasarea melcului lui Pascal 18: 


Ş * PRINT » MELCUL LUI PASCAL * 

10 PRINT * CONC OIDA CERCULUI » 

15 PRINT ”" DATI RAZA CERCULUI * 

20 INPUT R 

25 PRINT " DATI RAPORTUL A/R" 

30 PRINT * FORMA CURBEI DEPINDE DE A/R * 
35 PRINT * A/R < 2 GU BUCLA * 

40 PRINT " A/R = 2 CARDIOIDA * 

45 PRINT * 2 < A/R < 4 FARA BUCLA * 

ŞO PRINT * A/R > 4 CURBA CONVEXA * 


N 
69 IFN <= 6 THEN 70 


80 WINDOU -4x*R,2*R+A, -AXR, 2R+A 
85 MOVE =4*R,0 

90 DRAU 2xR+A,0 

95 MOVE 0,-4xR 

100 DRAU 0,2x*R+A 

105 HOVE 2x*R,0 

110 FOR 1 = 0 TO 2xFI STEP Pt/10 
115 DRAU R+RXCOS(L),R*SIN(L) 

120 NEXT 1 

122 REM " TRASAREA CURBEI * 

125 FOR 1 = 1 70 2*P1 STEP PI/10 


130 Z = Costi) 
135 U = SIN(I) 
140 X = 2*RK2"2+AxZ 


145 Y = 2*R*ZU+AnU 

150 DRAU X,Y 

155 NEXT 1 

160 PRINT * MAI VRETI PT. ALT RAPORT?"; 
165 PRINT * (DA/NU Do" 

170 INPUT D$ 

175 IF D$ = "DA" THEN 25 

180 sToe 

183 END 


Fig. 13.4. Melcul lui Pascal. 


13.5. Trasarea cercului circumscris unui triunghi 


Se solicită prin dialog coordonatele virfurilor triunghiului. 

Întrucît în program nu se calculează WINDOW-ul în funcţie de coor- 
donatele virturilor triunghiului, pentru a nu ieşi cu triunghiul din ecranul 
TV se recomandă utilizarea valorilor de la —100 la 100. 

În program se iau coordonatele a cîte două vîrfuri, se determină direcția 
dreptei definite prin aceste două puncte: 


le 
—X 

Se determină coordonatele punctului median al laturii Prin acest punct 
trece mediatoarea triunghiului eu direcția : 


1 


R=—— 


Ecuația ei (dacă punctul median are ceordonatele X, Y) este: 
y—Y=R (x—X) 


Dacă intersectăm două mediatoare obținem coordonatele centrului cer- 
cului (B, C) cireumseris triunghiului. 
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Din coordonatele centrului cercului și coordonatele unui virf al triunghiu- 
lui se poate determina raza cercului. 


R=V/| BX, RICE 


Se inițializează ecranul și se determină spaţiul utilizator : —100, 100— 
—100, 100. Se trasează triunghiul și cercului circumscris. Se afișează coordo- 
natele centrului cercului și mărimea razei. 


10 PRINT " CERCUL CIRCUMSCRIS * 
DIM A(2),B(2),ct2) 
N RINT " DATI COORDONATELE VIRFURILOR * 
T INPUT A,B,C 
50 MAT D= 
60 MATE=B8 
70  GOSUB 600 
80 IF Y = 0 THEN 400 


140 IF Y = 0 THEN 460 
150 Y = (S*B-R*T)/(S-R) 
160 IF S > 0 THEN 190 
170 X = (Y-B)/R 

120 GOTO 200, 


190 X = (Y-T)/s5 

200 B = ABS(X-A(1)) 

210 C = ABS(Y-A(2)) 

220 R = SQR(B+'2+C"2) 
230 INITP 


240 WINDOW -100,100,-100,100 

250 MOVE -100,0 

260 DRAU 100,0 

270 MOVE 9,-100 

280 DRAW 0,100 

290 MOVE A(1),A(2) 

300 DRAW B(1),B(2) 

310 DRAW C(1),c(2) 

320 DRAU A(1),A(2) 

330 MOVE X+R,Y 

340 FOR 1 = 0 TO 2*PI STEP P1/10 
350 DRAW X+Rx*COS(L),Y+R*SIN(L) 

360 NEXT 1 

370 PRINT AT(1,1);"RAZA = ";R 

380 PRINT AT(2,1);"X = *;X,Y = it 
390 sToP 

400 MAT D = 
410 HAT E = 
420 GOSUB 60 
430 IF Y = 0 THEN S10 


Cc 
8 
[e] 


R 
8 
D=aA 
E=C 
480 GOSUB 600 

490 1F Y = 0 THEN S10 

500 60T0 150 

510 PRINT " PUNCTE COLINIARE * 
520 G0T0 30 

600-:Y =0 Și 

610 1 = D(2)-E(2) 

620 IF 1 = 0 THEN 730 


630 R = -(D(1)-E(1))/1 

640 X = E(1) 

650 IF E(1) < D(1) THEN 670 
660 X = D(1) 


670 X = X+ABS((D(1)-E(1))/2) 
680 Y = B(2) 

690 IF E(2) < D(2) THEN 710 
700 Y = D(2) 

710 Y = Y+ABS((D(2)-E12))/23 
720 B = R*(0-X)+Y 

730 RETURN 

740 END 
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13.6. Graficul funcţiei polinominale 


Se introduce gradul polinomului și valorile tuturor coeficienţilor (zero 
pentru coeficienţii care lipsesc). Se introduce apoi intervalul de definiţie al 
funcţiei și numărului de pași în care se face trasarea graficului. Un număr 
mai mare de paşi face trasarea mai exactă, dar mai lentă. Se va corela acest 
număr cu mărimea intervalului de definiţie. 


Subprogramul de la linia 500 calculează valoarea funcţiei pentru o valoare 
dată a variabilei. La linia 170 se apelează cu limita inferioară a intervalului 
de definiție. În bucla 200—280 se reține valoarea minimă și maximă a funcţiei 
(în P şi R) pe intervalul de detiniţie. Spaţiul utilizator se definește în funcţie 
de limitele de definiţie și de valorile P și R în linia 330. Se trasează axele OX 
şi OY şi forma funcţiei pe acest interval. 


10 PRINT * GRAFICUL FUNCTIEI POLINOMIALE * 
15 PRINT * DAT PRIN GRAD SI COEFICIENTI * 
20 PRINT * DATI GRADUL FUNCTIEI * 

30 INPUT 
40 DIN C(G+i) 

SO PRINT * DATI COEFICISNTII* 

60 MAT INPUT C 

70 DIN L(2) 

80 PRINT * DATI DOMENIUL DE DEFINITIE * 
90 MAT INPUT | 

100 PRINT * DATI NUMARUL DE PASI * 
110 INPUT H 

120 IF L(1) € L(2) THEN 150 

130 PRINT * LIMITE ERONATE * 

140 G0T0 80 

150 H = (L(2)=L(19)/N 

160 X = Lil) 

170 G0SUB 500 

180 P = F 

190 R=F 

200 FOR K = 1 TON 

210 X = X+H 

220 GOSUB 500 

230 IF F >= P THEN 260 

240 P =P 

250 6070 280 

260 IF F <a R THEN 280 

270 R = P P 
280 NEXT K 

290 IF R > P THEN 320 

300 PRINT * FUNCTIE CU VALOARE CONSTANTA *; 
305 PRINT * IN INTERVALUL DAT = */R 
310 STOP 

320 INITP 

330 UINDOU L(1),L(2),P,R 

340 MOVE L(1),0 

350 DRAU L(2),0 

360 HOVE 0,P 

370 DRAW O,R 

380 X = Li) 

390 60SUB 500 

400 MOVE X,P 

410 FOR K = 1 T0N 

420 X = X+H 

430 60sUB 500 

440 DRAU X,F 

450 NEXT K 

460 STOP 

500 REM * CALCULUL VALORII FUNCTIBI * 
sioF=cu) 

520 FOR 1 + 2706 

330 F = Fax+C(1) 

540 NEXT 1 

550 RETURN 

560 END 
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13.7. Suma grafică a mai multor vectori 


Se solicită prin dialog numărul total N al vectorilor de insumat, mărirea 
fiecăruia, şi unghiul lor faţă de orizontală. 

Masivul IL. (N) conţine lungimile, iar A (N) unghiurile în grade. 

Pentru fiecare vector se calculează coordonatele vîrfului vectorului cen- 
siderind vectorul din originea axelor a 


X ()=L (D)*cos (A (1)*P1/180) 
Y (D=L (D)*sin (A (D)*P1/180) 


Coordonata virfului vectorului sumă se obţine din formulele: 


N 
A=YX(U) 
i=] 
N 
sai MD 


lar lungime: vectorului sumă și unghiul. cu orizontala : 
L = A2+ B2 
C=(arctg (B/A))*180/PI 


10 PRINT * ADUNAREA VECTORILOR * 
20 PRINT * NR. VECTORI DE ADUNAT * 
30 INPUT N ) 

40 DIM L(ND,A(ND,X(ND, YIN) 

SO PRINT * DATI MARIMEA SI UNGHIUL » 
55 PRINT * CU AXA X A VECTORILOR » 
60 FOR I1=1T0N 

70 INPUT L(ID,A(I) 

90 NEXT 1 

90 FOR 1 =1 TON 

100 X(1) = L(LD)*COS(A(1)xP1/180) 
110 Y(1) = L(LD*SIN(A(I)*P[/180) 
120 NEXT 1 

130 A = Xt1) 

140 B = Yii) 

150 FOR 1 22 TON 

160 A = A+X(I) 

170 B = Brr(l) 

180 NEXT 1 

185 INITP 

190 L = SQR(A"2+B8*2) 

200 C = ATN(B/A) 

210 PRINT AT(1,1);* LUNGIMEA *;L 
220 PRINT AT(2,1);” UNGHIUL *;C*190/P1 
230 UINDOU -1,A+1,-1,B+i 

240 HOVE -1,0 

250 DRAU A+1,0 

260 MOVE 0,-1 

270 DRAU 0,B+1 

280 MOVE 0,0 

290 FOR 1 =1T0N 

300 RDRAU X(ID,Yi(I) 

310 NEXT I 

320 MOVE 0,0 

330 DRAU A,B 

340 SToP 

350 END 
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După iniţializarea ecranului, spaţiul utilizator se stabileşte în funcție 
de coordonatele A, B, se trasează axele şi prin bucla 290—310 utilizînd instruc- 
țiunea RMOVE vectorii de adunat avînd coordonatele relative X (1), Y (1). 


Se trasează și vectorul sumă. 


13.8. Mişcarea unui punct material într-un cimp gravitațional 


Se consideră un punct material care pleacă cu viteza iniţială Vo dintr-un 
punct A şi trebuie să atingă un punct B aflat la o distanţă D faţă de A. Mişca- 
rea punctului este dată de ecuaţia: 


5 
vă cos? & 


Y=X tg a—X2 


ande :] 
Vo este viteza inițială 
«w este unghiul de aruncare față. de orizontală. 


Se consideră de asemenea că între punctele A și B poate exista 0 dite- 
renţă de nivel N (punctele nu se află obligatoriu ambele pe axa orizontală). 


Programul solicită prin dialog distanţa între cele doua puncte, diferența 
de nivel între cele două puncte, viteza inițială a mobilului şi unghiului său 
de aruncare. 


10 PRINȚ * 
20 PRINT * 
30 INPUT D 
AO PRINȚ * 
45 PRINT * 
30. INPUT N 
50 N = Nu44/0 

70 INITP 

80 X = 10 

90 Y = 10 

100 V = Să 

110 2.= 10 

120 1F N >= O THEN 150 

130 Y = Y+ABS(N) 

140 60T0 160 

150 2 = 2o+uH 

160 UINDOU 0,64,0,6â 

170 PLOT X,Y 

180 PLOT V,zZ 

190 MOVE X,Y 

200 PRINT AT(29,2);" VITEZA INATIALA * 

210 INPUT U 

220 PRINT AT(30,2);"” UNGHIUL Til GRADE * 
230 INPUT U 

240 U = PliU/180 


BALLISTIL * 
DISTANTA DE TRAGERE 


DIFERENTA DE NIVEL " 
POZITIV SAU NEGAȚIV " 


250 T = TANLU) 

260 C = S/tW»Cost(u)'*2 
270 1-0 

280 FOR K = 0 TO â4 
290 A = (KaT-Cwk"2) 


300 DRAW X+K,Y+a Aş 

310 1P K < 44 THEN3SO 

320 1F ABS(2-A) >= | THEN 350 
330 PRINT ATt30.20.* Lovir 
380 |. li! 4 


360. 1£ 1 : 1 THENINO 
„370 6079, 190; : ; 
UI! amo ep i . : 
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Se trasează graficul traiectoriei punctului, specificindu-se la sfirşit 
dacă s-a atins sau nu punctul B. 

Dacă nu a fost atins punctul B se cere introducerea noilor valori de viteză 
inițială a mobilului şi a unghiului de aruncare pînă se găsește combinaţia 
adecvată. 


13.9. Generarea şi modificarea unei figuri 


Programul generează desenul unui scaun văzut în perspectivă (fig. 13.5), 
solicitind prin dialog dimensiunile 1, >, ls și la. După generare figura poate fi 
modificată succesiv, schimbînd una sau mai multe dimensiuni. Se pot obţine 
astfel o serie de reprezentări ale aceluiaşi obiect, cu diferite proporţii între 
dimensiunile principale. 

Programul poate fi extins cu ușurință pentru generarea de figuri mai 
complicate, generarea mai multor figuri la diferite distanțe între ele, permu- 
tarea lor etc. ajutînd la proiectarea corpului respectiv. 


5 PRINT * PROIECTARE ASISTATA * 
10 PRINT * DATI LUNGIHE,LATIME SEZUT SCAUN * 
15 INPUT L1,L2 
20 PRINT * DATI (INALTIME SPATAR * 
23 INPUT L3 
30 PRINT" DATI INALTIME PICIOR * 
35 INPUT LA 
40 X1 = SOR(L1+12/2) 
X 


i 
60 X2 = SOR(4wL212/5) 
70 Y2 = x2/2 
= SQR(L3*2/4) 
90 Y3 = 3xX3 
100 A = X2+X1+X3+20 
110 B = L4+Y2+Y1+Y3+20 
120 INLTP 
130 UINDOU 0,A,0,8 
140 MOVE 10,10 4 
150 RHOVE 0,Y2 25 
180 RDRAU O,La 
170 RDRAU X1,Y1 
180 RDRAU X2,-Y2 
190 RDRAU -X1,-Yl 
200 RDRAU 0,-LA4 
210 RDRAU O,LA 
220 RDRAU -X2,Y2 
230 RDRAU X1,Y1 
240 RDRAU X3,Y3 4 
250 RDRAU X2,-Y2 
260 RDRAU -X3, -Y3 
270 RDRAU 0,-L4 
280 PRINT * CONTINUATI (DA=t) * 
290 INPUT Cc 
300 IF C = 1 THEN 20 
30 sToP 
320 END 


Fig. 13.5. Scaun văzut în 
perspectivă. 


13.10. Generarea de figuri tridimensionale 
conform legilor perspectivei 


Programul iese din sfera exemplelor demonstrative, fiind un instrument 
util pentru proiectarea asistată de calculator. Programul permite generarea 
de obiecte cu muchii drepte în spaţiul tridimensional marcat de axele OX, 
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OY, 07. Obiectele se compun prin asocierea așa-numitor segmente de dreaptă 
unitare. Lungimea unui segment unitar poate fi modificată pe parcurs. Indi- 
carea direcţiei de trasare se face prin tastele asociate deplasărilor pe cele 3 axe 
de coordonate. Odată încheiată faza de generare a obiectului, acesta poate fi 
privit din orice punct din exteriorul său (ca şi cum privitorul s-ar roti în jurul 
obiectului). După dorinţă, obiectele generate pot fi completate sau modificate 
ulterior. 

Imaginea în perspectivă a unui obiect a fost creată simulind (aproxi- 
mativ) fenomenul de creare a unei imagini pe retina ochiului. S-au luat în con- 
siderare următoarele ipoteze simplificatoare : 

a) privirea este îndreptată totdeauna spre originea axelor de coordonate 

b) cristalinul este o lentilă subţire convergentă, iar retina un plan orto- 
gonal pe direcţia privirii, la distanța de 3 cm faţă de centrul cristalinului. 

S-a utilizat formula lentilelor convergente : 


1 1 1 
Li rime a 


unde Sie, 13.6): 
este distanţa între obiect ȘI lentilă (OB) 
este distanţa între obiect și imagine (0B') 


i 
f este distanţa focală (0F) 
A este punctul de proiectat 
Peste protecţia punctului A pe planul retinei 
i, | sînt versorii axelor de coordonate în planul retinei: 
= XS; e3=(0,0,1) 
|| n e|] 
7 nxi 
| age a a 
Inxil| 


Imaginea obţinută prin lentilă fiind răsturnată, la proiecția pe ecran 
ea va fi din nou răsturnată pentru obținerea imaginii corecte. 


Fig. 13.6. Lenţile conver- 
gente. 


Poziţia punctului P în spaţiu se obţine intersectînd planul retinei cu 
dreapta AP: 


b=to- n-ta 
n-b—||al:=0 
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iar poziţia sa în plan: 
p=b-n=p!i-+p?j ; rezultă 
pitici; pote.) 


Se obţin astfel formulele pentru calculul coordonatelor punctului pe 
planul retinei : 


3 =(0,0,1) 
pă, nX e 
|| ax ea!] 
i ai 
nXi || 
ţ AES! p 
tr +a) 
pl=—t.cii 
pati 


Subrutina de la linia 2 000 din program aplică aceste formule la deter- 
minarea coordonatelor unui punct pe planul retinei. 

Crearea imaginii unui punct oarecare notat cu C se va efectua conform 
figurii 13.7 


Big. 13.7. Crearea imaginii unui punct, 


Din formula lentilei rezultă : 
1 1 1 


Ep 


Mas la 
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Punctul B se află la intersecţia planului lentilei cu raza de lumină paralelă 
cu direcţia privirii ce porneşte din C. Vom avea: 


b=tu"n+e 
n-b—|] n |=0 
de unde rezultă: 


5 LEI a-0 3 


TEI 


=) INITF 

10 DIH 6%(2354,12),R(254) 

30 PRINT AT(2,1);" N = FIGURA NOUA * > 

40 PRINT AT(3,1);* V = FIGURA VECHE NEMODIFICATA * 
30 PRINT AT(4,1);" MW = FIGURA VECHE MODIFICATA * 
60 INPUT F+ 


90 GOSUB 5000 

109  COSUB 700 

110  GDSUB 9000 

120  GOSUB 500 

130. GOSUR 3000 

140  GOSsuBa 2000 

150  HOVE C+50,D+50 

160  GOS5UB 9000 

163  GOSUB 500 

168  K$ = GS61,JTOJ) 

170  1F K$ = "A“ THEN 160 
= "0" THEN 110 

190 1F K$ = "S" TREN 250 

200  1F K$ = "L" THEN 300 


240 GOTO 160 

250 PRINT AT(1,1);" 
250 PRINT AT(2,1);* 
270 INPUT F$ 

290 LE F$ 3 *R" THEN 20 

290 sToP 

300 IF F$ = "N' THEN 330 

310 6 = R(E) 

320  G0T0 370 

330 PRINT AT(1,1);* 

340 PRINT AT(1,1); 

350 INPUT 6 

350 R(E) = 0 

370 E E*1 

380 GOTO 160 

S00 IF F$ <> M THEN 610 

510 PRINT AT(1,1)5* = 
520 PRINT AT(1,1); 

Ş30 A5 = INKEYS 


R = RELUATI 
Ş = STOP 


540 IF A$ = * * THEN 530 
SO IF AS = "CC" THEN 610 
560 IF AȘ = +1" THEN 600 
370 IF A$ = "A" THEN 620 


580 IF A$ = "D" THEN 640 
590 G0T0 530 

500  GO5UB 9040 

610 RETURN 

620  D6$(1,JT0J+2) = “AAA” 
630 RETURN 
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640 F3 = "Nr 3110 W = W-6 
630 RETURN 3120 GOTO 3200 

700 INITP 3130 U = U+6 

710 PRINT AT(27,26);"5=2+: 3140 GOTO 3200 

720 PRINT AT(28,26); "6=7-* 3150 U = U-6 

730 PRINT AT(29,26);"*7=X+* 3160 GOTO 3200 

740 PRINT AT(30,26);"8=X-* 3170 V = V+G 

750 PRINT AT(31,26);"9Y+! 3180 GOTO 3200 

760 PRINT AT(32,26);"0=Y-* 3190 V = V-G 

770 IF F$ <> “"M" THEN820 3200 NEXT K 

780 PRINT AT(22,26);"C=CON! 3210 RETURN 

790 PRINT AT(23,26);"1=INL* 5000 IF Fs = "N" THEN 5030 
»800 PRINT AT(24/26); "A=ABN' S010 G = R(E) 

810 PRINT AT(25,26):;"D=DEZ? 3920 G0T0 5060 

820 RETURN S030 PRINT AT(8,1);* MARIMEA "; 
2000 REM " CALCULE 5040 INPUT 6 

2010 3 = LeL+MxH 5050 R(E) =, 

2020 IF J3 = O THEN 2080 S060 E = Ec 

2030 11 = -M 5070 PRINT AT(10,1);* COORDONATELE ": 
2040 12 =L 5080 INPUT L,M,N 

2050 Ji = -LuN 5090 RETURN 

2060 J2 = -MuN 9000 1 = I+1 

2070 6910 2120 9010 IF F$ = "N" THEN 9040 

2080 11 =0 9020 REM " LA V SI M EXISTA IN MEMORIE “ 
2090 12 = -1 9030 GOTO 9070 i 
2100 31 = -1 9040 PRINT AT (1,1);" . 
2110 J2 =0 9050 PRINT AT(1,1) 

2120 N1 = LuL+M*M+NeN 9060 INPUT 6$(1,JT0J+2) 

2130 IF Ni = O THEN 2290 9070 IF 1 < 254 THEN 9130 

2140 N1 = SOR(NI) 9080 1=0 

2150 N2 = 11"2+12*2 9090 1 = J+3 

2160 N2 = SAR(N2) 9100 IF J <= 9 THEN 9130 

2170 N3 = J1*2+J2*2+J3"2 9110 PRINT " MEMMORY FULL * 

2180 N3 = SOR(N3) 9120 SToP 

2190 N4 = LmU+MmU+Neu 9130 RETURN 

2200 NS = N1"2-N4 9140 END 

2210 IF NS = 0 THEN 2260 

2220 T = 3*N1"2/N5 

2230 C = -Tx(Uxl1+V*12)/N2 

2240 D = Te(UxJ1+VxJ2+UxJ3)/N3 

2250 RETURN 

2260 c =0 

2270 9 =0 


2280 RETURN 

2290 PRINT “ EROARE 

2300 SToP 

3000 FOR K = 0 T02 
3010 K$ = G$(1,J+KTOJ+K) 


3020 IF K3 = "5" THEN 3090 
3030 IF K$ = "6" THEN 3110 
3040 IF K% = "7" THEN 3130 
3050 IF K% = "8" THEN 3150 


3069 IF K$ = "9" THEN 3170 
3070 IF K%5 = "0" THEN 3190 
3086 GOTO 3200 

3090 u = W+6 

3100 GOTO 3200 


Poziţia punctului F o aflăm din formula lentilei și din faptul că F se află 
pe direcţia de privire: 


î=tn 
_ 3 să 
ae = Al 
3+ ln] 
de unde rezultă: 
3 5 
î=| ae 
| P 3+ lin || 


Imaginea punctului C (punctul A) se obţine intersectind cele două raze 
de lumină: 


a=ta ((—b)+f 


a=ta (n—c)-+-n 
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Sistemul este compatibil determinat dacă vectorii (f—b, n—c) sînt 
liniari independenti. Acest fapt este echivalent cu c (b—n) 7.0. 
Deoarece (b—n) n și (b—n)_Lf, avem: 


a=t (n—c)-+n; unde : 
Bo ial] 
a 3 a: RE iu 
2— 1 —— +a. 
ini] (3 JE 


Folosind ecuaţiile de mai sus, se creează imaginea obiectului care va 
trebui apoi proiectată pe planul retinei (fig. 13.8) 


t= 


Y 


Fig. 13.8. Imaginea obiectului proiectată pe planul 
retinei. 


Vom da în continuare instrucțiunile de exploatare ale programului. După 
ansarea sa în lucru, programul solicită operatorului una din opţiunile de bază : 

a) N — generarea unei figuri noi 

b) V— privirea figurii existente din diferite puncte de vedere 

c) M — modificarea figurii existente 


Opţiunea N Se cere lungimea segmentului unitar, ce va fi utilizat în 
trasările ulterioare. Se recomandă valori cuprinse în domeniul 5—20. Aceste 
valori derivă din faptul că întreg ecranul este considerat ca un spaţiu de 
100 x 100 unităţi. O valoare mai mică pentru segmentul unitar permite trasarea 
de figuri mai complexe. O valoare mai mare permite trasarea mai expeditivă 
a figurilor, riscîndu-se însă depășirea limitelor ecranului. În acest caz se modi- 
fică punctul de vedere al privitorului, plasindu-l la o distanţă mai mare faţă 
de obiect. 

Se solicită apoi coordonatele punctului de vedere (în care se consideră 
că se află privitorul). Generarea figurii pornește implicit din centrul ecranului, 
considerat ca avînd coordonatele 0, 0, 0. Prin comanda D (deplasare), se pot 
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modifica coordonatele de pornire a trașării. Aceeaşi comandă poate îi utilizată 
pentru părăsirea coordonatelor curente de trasare și, începerea trasării dintr-un 
alt punct. Coordonatele indicate în comanda D se raportează totdeauna relativ 
la coordonatele ultimului punct de trasare anterior. 

Trasarea efectivă a cîte unui segment unitar se execută cu ajutorul urmă- 
toarelor taste : 


5— pentru deplasare (trasare) pe axa OZ în sens pozitiv 

6— pentru deplasare (trasare) pe axa OZ în sens negativ 
7— pentru deplasare. (trasare) pe. axa OX în sens pozitiv 
8— pentru deplasare (trasare) pe axa OX în sens negativ 
9— pentru deplasare (trasare) pe axa OY în sens pozitiv 


0— pentru deplasare (trasare) pe axa OY în sens negativ 


La apăsarea tastei, se trasează un segment unitar în direcţia specificată. 
În afară de trasare simplă (apăsarea unei singure taste de „direcţie“) se permit 
şi trasări combinate din maxim 3 direcţii de deplasare. Combinația de direcţii 
indică poziţia punctului care va fi unit printr-o linie cu ultimul punct unde s-a 
oprit anterior trasarea. Astfel, dacă se indică o deplasare XYZ combinată 
se va trasa direct diagonala cubului cu lungimea laturii egală cu segmentul 
unitar. De remarcat faptul că prin opţiunea de trasare combihată se pot face 
trasări în orice direcţii, nu numai paralele cn cele 3 axe de coordonate. 
i Dacă se doreşte moditicarea lungimii segmentului unitar s* utilizează 
comanda 1. Trasarea va continua cu noua lungime. 

Stirşitul trasării figurii se indică prin comanda $. 


Opțiunea V Permite schimbarea. poziţiei privitorului faţă de obiectul ge- 
nerat. Se introduc coordonatele noului punct de vedere, apoi programul tra- 
sează fără întrerupere imaginea vechiului obiect, văzut din noul punct dat. 


Opțiunea M Permite modificarea facilă a imaginii unui obiect deja gene- 
rat. 'Trasarea figurii se face pas cu pas, iar după fiecare pas se aşteaptă o co- 
mandă, care poate fi: 


GC — se trece la pasul următor ; 

] —se înlocuieşte comanda de trasare următoare cu. ceea ce doreşte 
operatorul; 

A — se abandonează comanda de trasare următoare (salt peste un pas)! 

D — dezvoltarea figurii — se consideră din acest moment trasarea ca 


şi la opțiunea N. 
La terminarea trasării, operatorul poate relua ciclul celor trei opţiuni. 
Domeniile de aplicaţie pot fi multiple, începind cu exersarea vederii 


în spaţiu a diferitelor obiecte, și terminînd cu activităţi de design în arhitee- 
tură, interioare de locuinţe, construcţii de maşini ete. . 
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13.11. Trasare de labirint 


Se trasează un labirint de lățime și lungime dată. Generarea se face uti- 
lizînd caracterele I, —, :, .. Astfel se poate genera labirintul fără utilizarea de 
instrucțiuni grafice. I-abirintul are doar o singură intrare și ieşire și un singur 
drum de trecere. Fiind trasat pe baza generării de numere aleatoare se obțin 
forme diferite de labirint. 


70 PRINI * LABIRINT * = Ara pe 770 „ 910 950 S = Sei 
20 DIM W(30,30),V(30, 80) 2 952 IF E a Hm + 
90 PRINI * LATIMEA „ LIINGIMEA * S30 IF S-1 = O THEN 670 5 GOTO 260 ii si, 
100 INPUT H,vV Sa0 IF V (D= gri 07 JO EN 679 380 2e 1 
102 1F H< 1 THEN 10g S45 IFR = H THI 970 1F VIR,S) = OT! 
103 IF H < 80 THEN 190 S47 IF W(R+1,S) <> O THEN 610 972 VIR,S) «3 îm 
104 IF V< 1 THEN 108 SSO IF S <> V THEN 560 274 a =0 
105 IF V £ 20 THEN 140 S52 IF 2 = 4 THEN 590 976 0OTO 1000 
106 PRINT " DIMENSILNI ERONATE * ori eat e 980 V(R,S) ei 
O 909 4 = 
zi 7 bl Bica S60 IF W(R,S+1) <> O THEN 590 Sa E ȘI i 
150 Z=0 „ 570% s INT (RND(X) x3+ 1) ass 
160 X = INTt RND(XD) He» 80 ON X GOȚO 820 , 860 , 910 988 GOTO 250 
165 FORI =1T0H 590 X = INT (RND(X) »2 +1) 1000 GOTO 210 
170 1F 1 = X THEN 172 600 ON X GOTO 820 , 860 10%0 FOR I = 1 TOvV 
174 PRINT n." 610 1F $ <> V THEN 630 1011 PRINT “1 
172 BUT 1890 620 IF 7 = 1 THEN 660 1012 FOR IL = 1 TOH 
172 FRINT n. vs 23 8 e A 1013 IF V(I,yJ) < 2 THEN 1099 
180 NEXI I 627 GOTO 640 1030, ERIE. n 7 
190 PRINT ».* 630 IF W(R,S+1) <) O THEN 660 1021 GOTO 1040 
195 Es i 640 X = INT (RND(X) M2+ 1) 1030 PRINT "1 "e 
94 HUX, 1) ac 650 ON X GOTO 620 , 910 1040 NEXT 1 
d ai 660 GOTO 820 1041 PRINT 
Aa y% 670 IF R = H THEN 740 1043 FOR Le 1 TOM 
Ei 680 IF W(R+1,S) <> O THEN 740 1045 IF V(L,y) e O THEN 1040 
GOTA 2460 685 IF 5 <> V THEN 700 1050 IF V(L'9) e 2 THEN 1060 
E R <> H THEN 240 690 IF 2 = 1 THEN 730 1051 PRINT îi e 
S <> V THEN 230 tc fi 10Ş2 GOTO 1070 
697 GOTO 830 10%0 PRINTI "s=*p 
700 IF W(R,S+1) <> 0 THEN 720 1070 NEXT | 
710 X = ÎNT( RND(X) x 2 +1) 107 BIN ee 
720 ON X GOTO 860, 910 1078. NEXT. 


730 GOTO 860 
7401F 5 <> V THEN 760 
750 1F 7 = "1 THEN 780 


W(R,S) = O THEN 210 755 a=1 


1073 SToP 


R-i 0 THEN 5230 757 GOTO 770 
265 IF W(R-1,3) <> 0 THEN 530 760 IF W(R,S+1) <> O THEN 780 
270 IF $-1 = 0 THEN 290 is: estică pt 
280 1F W(R,S-1) <> 0 THEN 890 Gi 
290 1F R = H THEN 820 790 W(R-1,85) = C 
300 IF W(R+1,5) <> 0 THEN 830 800 C = Cr 
410 X = INT( RND(X) 1 31) it i-o = 2 
420 ON X GOTD 790 , 820, 860 Al. ai 
330 1F S <5 V THEN 840 | 810 IF C = HuV + 2 THEN 1010 
834 IF Z = 1 THEN 870 50 =0 
238 0=1 816 GATA 240 
339 GOTO 350 820 W(R,S-1) = C 
340 IF W(R,S+1) <> O THEN 8370 830 C€ = Cri 
350 X = INT RND(X) 1 2+ 1) B40 V(R,S-1) si 
260 DN X GOTO 790 , 820, 910 S42 s = s-i 
370 X = INT( RND(X) 1 2+ 1) SAAIF C = HaV + 1 THEN 1010 
380 DN X GOTO 790 , 820 a50 0 =0 
390 1F R = H THEN 470 854 GOTO 260 
800 1F W(R+1,$5) <> 0 THEN 470 st ile ec 

$ <> V THEN 420 - 
NE si Z = 1 THEN 450 872 IF V(R,S) = O THEN 990 
si5a=1 875 V(R,S) = 8 
416 GOTO 430 877 GOTO 890 
420 IF W(R,S+1). <> O THEN 450 pia E făuaa 2 
430 X = INT(RNDUX) n 3+ 1) & cil 
440 AN X GOTO 790 e 860 „ 910 pa Eee Eau + 1 THEN 1010 
450 X = INT( RND(X) x 2+ 13 GOTO Se 
460 ON X GOTO 790 , 960 910 1F 0 = 1 THEN 960 
470 1F S <> V THEN 490 Sao ude sal În = € 

N 2c=e€ 

10 pa ani: aa 4 IF VIR,S) = O THEN 940 
486 80TO 500 sa Aa sz2 = 3 
490 1F W(R,S+1) <> O THEN 520 opune ] 


500 % e INT( RND(X) x 2+t) 
13 — MAceocalculatorul personal aMIG — vol. II J 
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13.12. Mastermind 


Jocul este o variantă adaptată a celebrului MASTERMIND, care soli 
cită determinarea unei combinaţii de 4 culori într-o ordine anumită, din 6 
culori posibile. Adaptarea s-a făcut pentru determinarea unei combinaţii de 
4 cifre din 6 posibile. Setul de cifre posibile este : 
„0 1,2, 3, 4, 5. Se introduce o combinaţie de 4 cifre ; programul compară această 
combinaţie cu propria sa combinaţie stabilită prin randomizare la începutul 
jocului. Se afișează un “*“ pentru ciiră corectă în poziţie corectă, și un „+” 
pentru cifră corectă în poziţie incorectă. Se admite ca aceiași cifră să apară 
de mai multe ori în cadrul combinației de 4 cifre. Scopul jocului este de a deter- 
mina combinaţia corectă din cît mai puţine încercări. Se afişează la sfirșit 
numărul total de încercări. 


9 INITP 

10 PRINT *HASTERMHI 

15 PRINT * GASITI PATRU CIFRE Din Ll 
20 PRINT * SASE POSIBILE 0,1,2,3,4,3 * 
25 PRINT = RASPUNSUL LA 0 ÎNCERCARE: 
30 PRINT * m = NR. BUN LA LOC BUN * 
35 PRINT * + = NR. BUN LA ALT LOC * 


40 L=0 

45 DIM a(4),B(4) 

So FOR Z= 1 T04 

55 Y = INT(RND(X)x6) 

40 Biz) = Y 

65 NEXT 2 

70 L=*-o0 

75 PRINT * DATI 0 INCERCARE * 
80 L = Lei 

35 HAT INPUT A 

9o k=0 

95 3=0 

100 FOR Z=1T04 

105 IF A(Z) <a $ THEN 115 
110 J=1 

115 NEXT 2 

120 IF J = O THEN 135 

125 PRINT * COMBINATIE ERONATA * 
130 GOTo 95 

135 FOR 2 = 1T04 

140 B(Z) = ABS(B(Z)) 

145 IF A(Z) > B(Z) THEN 165 
150 K = Kel 

155 A(z) =7 

160 B(2) = -B(2) 

165 NEXT Z 

170 FOR 2=1T04 

175 5-0 

190 FOR H = 1T0 4 

183 IF A(H) = 7 THEN 215 

190 IF A(H) <> B(Z) THEN 215 
195 IF G <> 0 THEN 215 


220 NEXT Z 

230 IF K = 0 THEN 250 

235 FOR Z=1T0K 

240 PRINT "x"; *; 

245 NEXT 7 

250 IF J = 0 THEN 270 

255 FOR Z=1T0]J 

260 PRINȚ pna o; 

265 NEXT 2 

270 PRINT 

275 IF K < 4 THEN 80 

280 PRINT * ATI GASIT DIN *;L; 
2035 PRINT * INCERCARI * 

290 PRINT * DORITI ALT JOC (DA/NU) * 
300 INPUT D$ 

305 IF D5 = "*DA* THEN SO 

310 sToe 

320 END 


Vinătoare de vulpi 


13.13. Vînătoarea de vulpi 


Programul trasează un careiaj de N X N dimensiuni (N =10—30) în care 
plasează în mod aleator 3 vulpi. Scopul jocului este de a determina coordo- 
natele vulpilor din cît mai puţine încercări. O încercare se specifică prin coor- 
donatele punctului (X, Y), după care programul afişează un “/“ pentru punct 
liber, sau un “X“ pentru vulpe găsită. Se totalizează la sfirșit numărul de 


îneercări. 


DIM A(6),c(3) 

INITP 

N = INT(RND(X)*30) 

IF N >= 10 THEN 50 

Na 10 

FOR 1 =» 1706 

ACI) = ÎNT(RND(X)*30)F10 

1P A(I) < N THEN 100 

ACID = ACLD-S 

GOTO 70 

Hn=o9 

IF | «x 2 THEN 170 

FOR ] = 1 TO 1-1 STEP 2 

IF A(I) <> A(J) THEN 150 
Met 

NEXT J 

1F N <> O THEN 60 

NEXT 1 

MAT C = ZER 

M=0 

V:0 

Vo 

IMITP 

WINDOW =10,N+10,-10,N+10 
PRINT AT(1,1);" VINATOARE DE VULPI * 
PRINT AT(2,1);” GASITI TREI VULPI *; 
PRINT "INTR-O ZONA DE *;N;"/":N 
FOR 1 =O0 TON 

MOVE 0,1 

DRAU N,I 

MOVE 1,0 

DRAU I,N 

NEXT 1 

PRINT AT(28,1);* E 
PRINT AT(28,1);* COORDONATA "; 
MAT INPUT B(2) 

Va V+l 

FOR J = 1 T0 5 sTEP2 

IF A(J) <> B(1) THEN 530 

IF A(J+1) <> B(2) THEN 530 

1 2 INT(J/2)+1 

IF C(1) = O THEN 420 

PRINT AT(28,1);" VULPE DEJA GASITA *» 
G0To 520. 

PRINT AT(28,1);* ATI GASIT 0 VULPE * 
Ctl) „1 

HOVE B(1),B(2) 

DRAU B(1)+1,B(2)+1 

HOVE B(1),B(2)+1 

DRAU B(1)+1,B(2) 

V = U+l 

IF U <> 3 THEN 520 

PRINT * ATI GASIT DIN »V; 
PRINT “LNCERCARI * 

Hei 

Jess 

NEXT J 

IF M <> O THEN 20 

MOVE B(1),8(2) 

DRAW B(1)+1,B(2)+) 

GOTO 310 

ERD 
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13.14. Verificarea vitezei de reacţie 


Programul afișează într-o poziție aleatoare pe ecran o cifră (0—9) şi 
aşteaptă un timp determinat introducerea aceleiași cifre de către operator. 
Se solicită iniţial viteza de joc (1—5), viteza 1 fiind cea mai mare. 33 
afișează permanent scorul pe ecran. Din start, jucătorul primeşte 5 puncte. 
Pe parcurs, modificarea scorului decurge astiel: 
— pentru o cifră introdusă corect, se adaugă un punct; 
— pentru o cifră incorectă, se scade un punct ; 
— pentru nici o cifră introdusă în intervalul de aşteptare, se scad 2 puncte, 
Oprirea programului are loc la atingerea scorului nul. 
3 INITP 
40 PRINT "REFLEXUL" 
15 PRINT " SE AFISEAZA ALEATOR 0 CIFRA *; 
20 PRINT "PE ECRAN * 
23 PRINT * BATETI CIT MAL REPEDE TASTA *; 


30 PRINT "RESPECTIVA * 
35 PRINT * DIN START PRIMITI S PUNCTE * 


40 PRINT * +i PUNCT LA TASTA BUNA * 

42 PRINT * -1 PUNCT LA TASTA ERONATA * 

44 PRINT * -2 PUNCTE DACA NU TASTATI » 

45 Les 

So PRINT * DATI VITEZA DE JOC (1,2,3,4,35) * 
S5 INPUT N 

60  INITP 


65 PRINT AT(I,LD; REFLEXUL“ 
70 PRINT AT(2,1);* SCORUL: *;L 
75 IFL < 1 THEN 220 

80 A = INT(RND(X)x»9)r+48 

85 89 = INKEYS 

90 X = INT(RND(X)*26+4) 

95 Y = INT(RND(X)x29+1) 

100 PRINT AT(X,Y);CHRS(A) 
105 As = INKEYS 

110 FOR 1 = 1 TO 100*N 

115 IF. AS <> B% THEN 125 

120 B9 = INKEY% 

123 NEXT 1 

130 IF B$ = A$ THEN 195 

135 a=0 

140 FOR 1 = 0T079 

145 IF 89 = STRS(1) THEN 153 
150 G0T0 165 

155 IF 1 <> A-48 THEN 16$ 
160 a =1 

165 NEXT 1 

170 IF a = 1 THEN 185 


200 FOR 1 = 1 TO N*100 
205 REM * PAUSE » 

210 NEXT | 

215 G0T0 70 

220 SToP 

225 END 


13.15. Perspico 


Jocul constă în alinierea a trei O-uri in linie sau diagonală, în eadrul unni 
careu de 3X3. Fiecare căsuţă din careu primește un număr (1—9), utilizab 
pentru indicarea locului în care se plasează 0-ul jucătorului. Ca răspuns, pre- 
gramul plasează un X într-o poziţie defavorabilă pentru jucător, căutînd 
la rîndul său să alinieze trei X-uri. La sfîrşit se afișează cîștigătorul. 
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3 PRINT *PERSPICO- 280 p=a3 
10 DIM B(9),P(9) 285 Fai 
13  INITP 290 GOSUB 340 
20 FORA = 17079 295 c=a4 
25 Bia) =A 300 D=6 
30 NEXT A 305 GOSUB 3640 
25 MAT P = ZER 310 C=.7 
49 2-9 315 229 
45 8-0 320 G0SuB 360 
So N=0 323 c.a 
35 Xx-.a 330' D= 7 
60 PRINT AT(X,3); 333 F=2 
63 FORAn= 1 T079 340 GOSUB 360 
70 IFA = X THEN 90 345 6 = Get 
75 1F B(A) = O THEN 110 350 IF G = S THEN 50 
90 IF B(A) » 10 THEN 120 355 G0To 215 
65 GOTO 130 360 E 20 
90 X = X+3 385 U=1 
95 PRINT 370 FOR A = C TO D STEPpP 
100 PRINT AT(X,3)+ 375 E a E+P(A) 
10% G0To 7$ 380 NEXT A 
110 PRINT *0*;* +; 385 IP E = 3 THEN 440 
115 GOTO 135 390 IF 6 = O THEN 435 
120 PRINT "X";" ji 395 IF E = 8 THEN 470 
12% 00T0 135 400 '1F 9 = 1 THEN 4335 
130 PRINT B(A);* *; 405 IP E = 2 THEN 470 
135 NEXT A 410 IF Ga 2 THEN 435 
140 IE Na 1 THEN 210 415 IF E = S$ THEN 470 
145 IF E c> 8 THEN 160 420 IF G = 3 THEN 435 
150 PRINT AT(15,1);* AM CISTIGAT 425 IF B = 1 THEN 470 
133 00T0 445 430 IF E = 4 THEN 470 
160 PRINT AT(15,1);* MUTAREA Ci 435 RETURN 
163 INPUT 2 440 PRINT AT(15,1);* ATI CISTIGAT * 
170 IF Biz» <> 2 THEN 165 445 PRINT AT(17,1);* DORITI ALT JOC (Dani) * 
175 N = 450 INPUT D 
189 Q : Qei 455 IF Da 1 THEN 15 
185 B(Z) 20 460 SToP 
170 P(2) -1 470 FOR A ns C TO D STEP PF 
195 IF Q cu O THEN 55 475 IE B(A) €> A THEN 500 
200 PRINT AT(15,1);* REMIZA 480 IF VU = 0 THEN 500 
205 GOTO 475 4835 B(A) = 10 
210 6=0 490 P(A) = 4 
215 c=21 495 u=-0 
220 Da 7 S00 NEXT A 
223 Ș *3 505 GoTo 50 
230 GOsua 360 510 END 
233 c-a2 
240 D=-e 
2455 GOSUB 360 
250 c-3 
239 D=? 
260 GOsUBa 360 
265 C=1 
270 P = 

GOsuB 


=] 
w. 
[3 
o 


13.16. Cursa de obstacole 


Se conduce un mobil printr-o configuraţie de obstacole generată aleator 
pe ecran. Deplasarea mobilului are loc de la dreapta la stînga ; jucătorul are 
posibilitatea de a muta cu un rînd mai sus sau mai jos direcţia de înaintare, 
apăsînd tasta S, respectiv J. Dacă nu se apasă nici o tastă, mobilul îşi continuă 
deplasarea în linie dreaptă. La lovirea unui obstacol, se opreşte înaintarea 
și se afişează scorul. Valoarea scorului indică distanţa parcursă pînă la lovirea 
obstacolului. După parcurgerea unui ecran complet, se reia mișearea mobilului, 
modificînd locul de apariţie al acestuia şi combinaţia de obstacole. 
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10 PRINT * CONDUCETI VEHICOLUL PRINTRE *; 
15 PRINT "OBSTACOLE " 

20 PRINT * VEHICOLUL SE DIRIJEAZA CU *; 
25 PRINT "TASTELE * 

30 PRINT * S= SUS , J=-J0s* 
40 DIM D(30,30) 

so s=o0 

60 HAT D = ZER 

70 INITP 

80 FOR A = 1 T0 50 

90 X = INT(RND(X)w29)+1 

100 Y = INT(RND(X)x29)+1 

110 PRINT AT(X,Y); "n" 

120 B(X,Y) .1 - 

130 NEXT A 

140 P = INT(RND(X)x29)+1 

150 FOR A = 30 TO 1 STEP -1 

160 PRINT AT(P,A);"c* 

170 1F D(P,A) = 1 THEN 310 

180 PRINT AT(P,A);*=* 

190 24 = INKEY$ 

200 1F 25 = * * 1uEh 480 

210 IF 2$ = "J” THEN 260 

220 IF 25 (> “S* THEN 280 

230 1F P =.-1 THEN 280 

240 P = P-1 

250 G0T0 280 

260 IP P = 30 THEN 280 

270 P * pri 

280 £ = $+i 

290 NEXT A 

300 0076 40 

310 FOR Z e 1 TO 20 

320 PRINT AT(P,A); "8" 

330 PRINT AT(P,A);" * 

340 NEXT Z 

330 PRINT AT(2y,1);* SCORUL *;s3 
360 FOR 1 = 1 TO 100 

370 REHN * TIS * 


13.17. Tragerea la ţintă 


Pe ecran se afișează o ţintă, considerată ca fiind în faţa privitorului. 
Se introduce viteza iniţială a proiectilului și unghiul înălțătorului. Programul 
consideră ţinta ca fiind la o distanţă aleatoare față de trăgător. Din datele 
in“roduse, pe baza formulei: 


S=V2sin cls 


unde : 

S este distanţa parcursă de proiectil; 

Ve este viteza” iniţială ; pen 

o este unghiul înălțătorului ; 

g este accelerația gravitaţională. % 
SE determină dacă s-a atins sau nu ţinta. 
"Dacă ţinta nu a fost atinsă, se afișează distanţa la care a căzut proiectilul 
faţă de ţintă („+ pentru lovitură prea lungă, „——” pentru lovitură prea seurtă). 
Se caută lovirea țintei din cît mai puţine încercări, pe baza coroborării datelor 
faişate pentru loviturile în gol. 
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10  INITP 

20 PRINT AT(1,10);* TINTA-, 
30 PRINT AT(3,15);*a 

40 PRINT AT(4,10); L- 
So PRINT AT(S,10); să 
60 PRINT AT(6,10); m 
70 PRINT AT(8,1);* VITEZA UNGHIUL *; 
75 PRINT * DISTANTA * 

00 PRINT AT(9,1)ps s-o onnna-sameemety 
93- PRINT Somes e > 

90 Kk-=:o0 

100 a =-1 

110 X = INT(RND(X)x*15000+50) 

120 K = Ket 

122 IF K <=32 THEN 130 

125 K » 32 

130 PRINT AT(3,22);*)*;0;"*<* 

140 PRINT AT(10+k,1);*?%; 

150 INPUT V 

160 IF V <10 THEN 140 

170 PRINT AT(10+k,10);*>*; 

180 INPUT U = 
190 IF WU < 3 THEN 170 

200 IF U > 89 THEN 170 

210, 2 = INT(V*2mSIN(P1uU/90)/9.81b 
220 E = Z-X 

230 PRINT AT(10+K,20);E£ 

240 IF Z = X THEN 270 

230 Q = a+i 

260 GOT0 120 

270 PRINT AT(13,1);* NIMERIT * 

280 PRINT AT(15,1);* DORITI ALT JOC (Dazl) * 
290 INPUT D 

300 IF D = 1 THEN 10 

310 SToP 

320 END 


13.18. Ecranul magic 


"ag Programul permite trasarea oricăror figuri compuse din drepte orizon- 
tale și verticale, pornind dintr-un punct dat iniţial. Deplasarea punctului este 
coordonată de tastele : 

1— dreapta 3— jos 

2-— stinga 4— sus 

Punctul se deplasează continuu, oprirea trasării făcindu-se prin apăsarea 
oricărei taste în afara celor de mai sus. Reluarea trasării se face prin apăsarea 
oricărei taste de comandă a direcţiei de deplasare. 

Direcţia de deplasare poate fi completată, pentru a avea posibilitatea 
trasării sub un unghi oarecare faţă de orizontală. Dacă se dorește o trasare 
la un unghi de 45* în direcţia dreapta-sus, se introduce linia 105 de recunoaștere 
a tastei “5“: 


105 IF A$ =''5'' THEN 590 

La linia 500 se introduce secvența de trasare: 
500 REM “DEPLASARE 45 DREAPTA SUS“ 
510 B$=INKEY $ 

526 IF Y=100 THEN 570 

530 IF X=100 THEN 570 

540 SX=X+1 

550 Y=Y+1 

560 DRAW X, Y 
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570 A $=INKEYS 
580 IF A $==B$ THEN 520 
599 GOTO 09 


Programul poate fi generalizat pentru trasări pe alte direcții, trasări 
de linii curbe etc. 


5 INITP 
10 PRINT AT(1,19;* ECRAN MAGIC * 
15 PRINT AT(2,1);* l= DRGAPTA* 
20 PRINT AT(3,1);* 2= STINGA « . 
25 PRINT AT(4,1);* 3= 30$ * 
30 PRINT AT(5,1);* 4= SUS * j 
35 PRINT AT(6,1);* COORD. DA ÎNCEPUȚ +; 
40 INPUT X,Y 
45 MOVE X,Y 
SO  A$ = INKEYS 
60 IF A$=* * THEN 50 
70 1F AS = *1* THEN 120 
60 LF A$ = "2" THEN 200 
90 IF A$ = "3" THEN 280 
100 IP A$ = *4* THEN 3640 
110 6070 50 
120 REM * DEPL. DREAPTA * 
180 85 = INKEY$ 
140 IF X = 100 THEN 170 
150 X » X+1 
160 DRAU X,Y 
170 A% = INKEY$ 
180 IF AS = BS THEN 140 
190 GOTO 50 
200 REM * DEPL. STINGA * 
210 89 = INKEY% 
220 IF X = 0 THEN 250 
230 X = X-1 
240 DRAU X,Y 
250 A9 = INKEY% 
260 IF A$ = 8% THEN 220 
270 G0T0 so 
280 REM * DEPL. J03 * 
290 B$ = INKBYS 
300 IF Y = 0 THEN 330 
Y-1 


340 IF A$ = B$ THEN 300 
250 G0T0 50 

360 REM * „DEPL. SUS * 
370 25 = INKEYTS 

380 IF Y «= 100 THEN 410 
390 YavY+i 

400 DRAU X,Y 

410 49 = INKEYS 

420 IF A$ - 89 THEN 380 
430 G0T0 50 

970 END 


13.19. Nim 


Jocul Nim — originar din China antică — este cunoscut și sub numsie 
de Fan-Tan. 


Se generează într-un număr oarecare de grămezi un număr aleater de 
obiecte. Jucătorii (în cazul de faţă operatorul și calculatorul) elimină cu schim- 
bul obiecte din grămezi, şi anume cel puţin un obiect (cel mult toată grămada), 
dar la un moment dat numai dintr-o singură grămadă. 

Ciştigă cine scoate ultimu: sau ultimele obiecte din ultima grămadă 
rămasă. 


Nim 20h 


O grămadă de obiecte se reprezintă printr-o linie de; asteriscuri (un aste- 
risc reprezintă un obiect). Numărul total de grămezi se stabilește de operator 
la începutul fiecărui joc. Numărul obiectelor din fiecare grămadă se generează: 
aleator la începutul jocului. 


10 DIN A(10),B(10,5),0(5),V(10) 1660 NRAT J 

45 PRINT "N-=1-M" 15870 1F W <> O THEN 1700 

90 PRINT * CU CITE GRAMEZI JUCATI? * 1520 £ “i 

30 INPUT N 13% RE TURN 

40 IF N <«= 0 THEN 20 17200 c so 

SO IFN) 9 THEN 20 1705 da W 

55 MAT V = ZER 1710 VII) = ALU) = INT(CACII=LDaRND(KI 
60 REM " GENERAREA GRAMEZILOR * 1720 RETURN 

70 FOR I = 1 TON 1730 U=0 

90 ACI? =. INT RND(X) i 30) 1740 FOR 12 1 TON pai 
65 IF ALI) » 0 THEN 80 1745 IF B(I1,W) O 1 THEN 1760 d 
90 NEXT 1 1750 B(I,W) „0 ; 
95 GOSUB 2050 1752 U=1 

100 PRINT * DIN CARE GRAMADA SI CITE "e 1755 taN 

105 PRINT * OBIECTE LUATI? * 1760 NEXT 1 

110 INPUT 1, K 1770 FOR J e W-l TO 1 STEP -i 
120 IF 1 > N THEN 230 1775 |1F O(y) = O THEN 1790 
139 IF 1 < 0 THEN 230 1780 B(WU,J) = 1 — BUD) 

340 IF K > A(I) THEN 230 1790 NEXT J 

150 IF K < 1 THEN 230 1795 ju 

150 V(1) sk 1300 FOR Je STO 1 STEP -i 
170 GOSUB 650 1810 VII) a 2 n VI) + B(I,J) 
180 REM * JOACA CALCULATORUL * 1820 NEXT J 

190 GOSUB 1300 1830 VII) s ACID = VU) 

200 GOSUB 650 1340 S2=0 

210 IF C <> 0 THEN 270 1850 FOR J= 1 TON 

22% GOTO 95 1960 S = $ + A(y) = VI) 

A20 PRINT " EROARE * 1870 NEXT J 

240 GOTO 93 1880 1F S$ = 0 THEN 3910 

290 IF C = —1 THEN 320 1890 c=o0 

200 PRINT *" AM CISTIGAT * 1900 RETURN 

310 SToP 1910 Cat 

320 PRINT * Al CISTIGAT * 1920 RETURN 

320 STOP 2050 FOR 1 = 1 TON 

€30 FAR le 1 TON 2060 IF A(I) = 0 THEN 2100; 
660 ALL) a AL) = VID 2070 FOR J = îi TO ALI) 

670 VI) n 0 2080 PRINT "x" 

680 NEXT 1 2090 NEXT J 

€%0 RETURN 2100 PRINT 

1300 MAT B = ZER 2110 V(l) = 0. 

1350 MAT 0 = ZER 2120 NEXT 1 

1360 FOR U= 1 TON 2130 RETURN 


1290 M = Atu) 
1400 FOR L=1T05 

1410 BWU,I) =M = INT(M/2 0902 
1420 M = INT( M/2) 

1430 041) = B(U,I) + 01) 
1440 IF Q(1) > 1 THEN 1460 
1450 GOTO 1470 

1460 DU) = 0 

1470 NEXT 1 

1475 NEXT U 

1480 W=0 

1493 FOR U.= 5 TO 1 STEP =4 
1490 IF D(U) <> 0 THEN 1510 
1500 'GOTO 1530 

isiow=u 

1520 U=1 

1530 NEXT U 

15401F W <> 0 THEN 1570 
1550 GOSUB 1600 

1560 RETURN 

1570 GOSUB 17230 

1530 RETURN 

1600 m = 0 

16% FOR J = N TO 1 STEP -1 
1620 IF Au) <> 0 THEN 1640 
1630 GOTO 1660 

1£40 W = 

1830 J=1 
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13.20. 'Purnurile din Hanoi. 


Jocul este cunoscut şi sub numele Acele Faraonului şi constă în a trans- 
“era un set de discuri aranjate în ordine descrescătoare a mărimii lor de pe 
„primul ac pe al treilea ac, utilizînd ca element ajutător acul din mijloc. Regula 


100 FEM * TURNURILE DIN HANOI * 
110 DIM T(U0,% 


120 £ =0 

130MAT T = ZER 

140 PRINT * TURNURILE DIN HANOI * 

150 PRINT * DISCURII.E SE MUTADIN STINGA * 

155 PRINT * IN DHEAPTA SI NU SE PUNE DISC * 
160 PRINT * MAI MARE PE DISC MAIL MIC * 

200 PRINT * CU CITE DISCURI MUCATI? (MAX 10) * 
210 INPUT $ 

220 M=0 


240 IF SS > 0 THEN 260 

250 GOTO 270 

260 IF 5 <a10 TIIEN 330 

270 E s Eri 

250 1F E > 2 THEN 210 

290 PRINT ” DATI NUMAR CORECT 1 - 10” 

300 Garg 200 

310 PRINŢ * NU JUCATI CORECT * 

320 STuP 

350 PRINT * IN PROGRAM DISCURILE SINT BOTEZATE * 


360 PRINT “ PRIN NUMERE ZECIMALE 1 LA 10” 

370 PRINT * DACA JUCATI CU MAI PIITIN DECIT 10 * 
380 PRINT * VETI JLICA CU DISCURI DE NUMERE CELE * 
385 PRINT * MAI MARI * 

380 PRINT * MUTATI DE PE ACUL 1 PE ACUL 3 4 

400 Y = 10 

410 Da 10 


420 FOR X = STO 1 STEP -1 

430 T(Y,L) = D 

450 D= D-1 

450 Y = v-l 

460 NEXT X 

470 GOSUB 1240 

430 PRINT AT(27,193* CARE DISC ÎL MUTATI? *> 
490 £=o0 

S00 INPUT D 

S101F D > 10-$ THEN Ş30 

520 GOTO SAO 

530 1F D <a 10 THEN 580 

540 PRINT * DISC INEXISTENT * 

SS0 E = E+l 

560 IF E > 1 THEN 310 

570 GOTD 450 

Sa0 REM * VERIFICA DACA DISCUL E SUR ALT DISC * 
sa5 A a 10 

5% Bes 

395 FOR R = 1 TD 10 

600 FOR C=1T03 

605 1F T(R,CD <> D THEN 639 
&loA=R 

615 Bac 

420 Re 10 

625 Ca 

630 NEXT C 

635 NEXT R 

640 IF T(A-1,B) <> O THEN 670 

645 GOTO 700 

6470 PRINT * DISCUL E SUB ALT DISC ” 
690 GAT 480 

700 E =0 

730 PRINT ” PE CARE AC IL MUTATI? “3 
720 INPUT N 

730 1F (N-1)*(N-2)%(N-3) = O THEN 800 
740 £ = Er 

730 PF E > 1 THEN 210 

760 PRINT * DATI NUMAR CORECT 1, 2, 3 
770 GOT 740 

800 A =0 

:805 FOR R = 1 TO 10 
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810 IF T(R,N) = O THEN 825 
BI5A-R 
820 R = 10 
825 NEXT R 
830 IF A » 0 THEN 870 
935 REM * VERIFICA SA NU SE PUNĂ DISC MAI * 
A REM * MARE PE MAL MIC * 
840 1F D < T(A,N) THEN 870 
ŞS50 PRINT * DISC MAI MARE PE MAL MIC NU SE POATE ” 
850 GOTO 480 
870 FOR V = 1 TO 10 
87% FOR W = 1 T0 3 
680 IF T(V,W) = D THEN 890 
&35 GOTO 910 
890 Aav 
go Ba W 
300 Va 10 
“05 Wa 3 
310 NEXT W 
S1% NEXT V 
920 FOR U = 1 TO 10 
225 1F T(U,ND m 0 THEN 950 
930 X  u-i 
se us 10 
940 GUTO 940 
950 Xa 10 
34.0 NEXT U 
970 T(X,ND = T(A,B) 
980 T (A,B) „0 
4%0 REM * TIPARESTE STAREA ACTUALA * 
1000 GOSIB 1240 
1010 M = Mei 
1015 A=0 
1020 FOR R = 1 TO 10 
1030 FOR C = 1 T0 2 
1040 IF T(R,C) a O THEN 1060 
1050 Ax 
1040 NFXT C 
1070 NEXT R 
1080 1F A = 0 THEN 1120 
1090 IF M <= 2*8 THEN 480 
1100 PRINT * ATI DEPASIT NUMARUL DE PASI MINIM * 
110% PRINT » NECESARI * 
1110 STOP 
1125 PRINT * ATI REZOLVAT IN “Mr” PASI * 
1140 PRINT » MAI JUCATI? (DA/NU) * 
1159 INPUT AS 
1160 1F A$ = "DA" THEN 120 
1170 STaP 
1240 INITP 
1250 A = 26 
1260 FOR K a 10 70 1 STEP -1 
1270 z=5 
1280 FOR U = 1T03 
1230 1F T(kpu) = 0 THEN 1340 
1800 PRINT ATCA, Z-INT(T(K,J)/2)+103 
FOR V = 1 TO T(k,u) 
PRINI “x"ş 
20 NEXT V 
340 2 = 2+10 
d» NEXT JI 
360 A A-3 
S PRINT 
330 RETURN 


de bază a transferului specifică obligativitatea mutării unui disc mai mic peste 
unul mai mare, niciodată invers. 

În jocul realizat pe calculator se permit maxim 10 discuri. Discurile sînt 
reprezentate prin asteriscuri. Numărul de asteriscuri, care formează discul 
reprezintă mărimea discului. Pașii necesari pentru a termina jocul sînt 2"“:, 
unde n reprezintă numărul de discuri în joc. Dacă iueătnrul uu termină în 
namăr de paşi necesari, se oprește jocul. 
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13.21. Jocul cu trei grămezi 


Se generează trei grămezi cu diferite numere de obiecte în fiecare grămadă. 
Wucătorul mută dintr-o grămadă oarecare într-o altă grămadă un obiect în 
contul unui obiect din a treia grămadă care se elimină din joc. Iniţial cel puţin 


$ InIrP 

10 PRINI * JOCUL CU TREI GRAMEZI * 

12 PRIN 5 ee ee aente vene ze. 

1% PRINT ” SE DAU TREI GRAMEZI PRIN * 

20 PRINT * NUMERELE DE OBIECTE BIN ELE * 

23 PRINT * JOCUL CONSTA IN A MUTA UN OBIECT * 
30 PRINT ” DINTR-O GRAMADA IN ALTA IN * 

35 PRINT * CONTUL UNUI OBEIECI DINA TREIA = 
40 PRINT ” CARE SE ELIMINA DIN ME * 

43 PRINT ” SCOPUL ESTE DE A AJUNGE LA DOUA ” 
50 PRINT * GRAMEZI GIA E SI INA TREIA bă 

S5 PRINTI * SA RAMINE UN SINGUR OEIECI * 

40 PRINT * GRAMEZILE SE INDICA PRIN 1, 2, 3" 
83 DIM T(3) 

90 T(19 o INT( RN e 19 +1) 

93 12) s INT (AND(X) m 19 e 4) 

100 Tia) = INT (AND(XD n 19 el) 


105 


110 M = INI 
LIS IFN = 
120 P*1 

M25 IFP = 
130 IFP„- 


135 
140 
145 


N = INTE AND(X) *2+ 1) 


(RND(X) x 2 +1) 
M THEN 110 


N THEN 140 
M THEN 140 


GOTO 150 
P=P+i 
GOTO 123 


150 IF INT(T(N)/2) e T(N)/2 THEN 165 
155 IF INT(T(M)/25 a T(M)/2 THEN 190 
140 GOTU 205 

155 IE INT(T(M/2) = T(M/2 THEN/175 


170 
175 
180 
135 
170 


193 


BATA 205 

IF INT(T(P)/2) €> T(P)/a THEN 205 
T(P) = INT( AND(XD) m 19 +1? 
GATA 175 

IF INT(T(P)/2) e T(P)/2 THEN 205 
TIP) a NT( RND(XD n 19 +1) 


200 Gmo 1%0 


208 


z10 
215 


PRINT ” INCEPEM UN JOC (DAS 03 * 
INPUT D 
IF D = 1 THEN 225 


GOTO 210 

INITP 

1l=1 

PRINT AT(I,S)$T(1)$“ 3 “sT(203* pi 1439 
I=lei 


3 IF 1 < 30 THEN 255 


GOTO 225 
PIUINI AT(a1, 2)" i 
PRINT AT(30,2);" DIN CARE = IN CARE * 


255 PRINT AT(3L 2) 


INPUT D,E 

IF D= E THEN 253 
IF D > 2 THEN 255 
IF € > 3 THEN 253 
a =0 

FOR de 1 T03 

IF D= J THEN 310 


3 TF E <> J THEN 310 


TI) = TD et 

GATA 315 

Ţ() = Ti) = 

IF Ti) = = THEN 390 


3 NEXT d 


IF a = 1 THEN 410 
k=o0 

L=.0 

FOR dJ=1T03 

IF T(d) 4 0 THEN 350 
Kakei 

GOTO 339 
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ŞSO L = TD 

355 NEXT 

I6O 1F k > 2 THEN 235 
369 IF L = 1 THEN 880 


370 PRINT AT(30,1);* NU ATI AJUNS iu 
ia e ea LA REZULTAT BUN 


3S0 PRINT AT(30,1)3" ATI ANINS LA =: 
385 GOTO 70 j ci Di eg 
390 ENI 


în două grămezi trebuie să existe obiecte. Scopul este ca în final să rămînă 
un „Singur obiect într-o grămadă, celelalte să fie goale. 

- Se poate demonstra că dacă în toate trei grămezile există iniţial obiecte 
în număr par sau impar (deci sînt de aceeaşi paritate) atunci jocul nu are 
soluție. Dacă la două grămezi paritatea este aceeași şi a treia are altă paritate, 
jocul are soluţie și în final cele grămezi vor fi goale care au avut aceeași pari- 
tate, rămînînd un obiect în grămada cu paritate diferită. 


13.22. Ruleta 


Un joc clasic de noroc este ruleta. Simularea pe calculator scoate în 
evidenţă doar țelul ca jucătorul cu suma de bani iniţială să rămînă cît mai 
mult în joc, nu latura de noroc. 

În cazul de față se generează aleator numărul şi culoarea ciştigătoare. 
Jucătorul poate miza prin numere între 1 și 50 cu 5 pînă la 500 de unităţi de 
bani cu mai multe mize. Iniţial jucătorul are la dispoziţie 1000 de unităţi 
de bani. 

„Mizele sînt după cum urmează . 

— pe un număr se poate miza cu numărul respectiv (1 pînă la 36), pe 0 
sau (09 se mizează cu numerele 49 respectiv 50. Ciîştigul este de 35 de ori miza. 

— pe numere între 1 și 12; 13 și 24; 25 și 36 se mizează cu codurile 37; 
38 respectiv 39, cîșticul fiind dublu. 

— pe numere în prima coloană (1, 4, 7, 10...) în a doua coloană (2, 5, 
8, 11 ....) şi în a treia coloană (3, 6, 9, 12 .) se poate miza cu codurile 40 ; 
41 respectiv 42, ciștigul fiind tot dublu. 

— pe numere între 1 şi 18; 19 și 36 se mizează cu codurile 43 respectiv 
44 ciștigul fiind doar miza 

—pe număr par sau impar se mizează cu codurile 495 respectiv 46; 
pe roșu sau negru cu codurile 47 respectiv 48, cîştigul fiind simplu. 

Pentru fiecare miză făcută de jucător trebuie să se indice două numere: 

— prima reprezintă codul (număr între 1 şi 50) 

—a doua reprezintă valoarea mizei). 
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10 DIM B(100),C(100), T(1005, X(3,A(SO) 490 1F S < 25 THEN 620 
20 MAT X = ZER 700 GOTO S20 
30 P = 1000 710 REM * 25 = 36 (COD 399 251 * 
40 D = 100000 720 IF S > 24 THEN 740 
50 PRINT * CITE MIZE FACETI? * 730 GOTO Sao 
60 INPUT Y 740 |LF S < 37 THEN 620 
70 IF Y < 1 THEN 50 750 GOTO Se0 : 
EO 1F Y <> INT(Y) THEN S0 760 REM * PRIMA COLOANA (COD 40) 231 * 
85 1F Yv > SO THEN 50 770 K=0 
90 MAT A = ZER 780 FOR | = 1 TO 34 STEP 3 
100 FOR C=1T0Y 790 IF Sc 1 THEN 810 
110 PRINT" MI ZAC 800 Kai 
120 INPUT X,Z 810 NEXT 1 
120 B(CD » 2 820 IF K = 1 THEN 620 
140 T(0)ax%X 820 GOTO 580 
150 IF X < 1 THEN (10 540 REM * CULOANA A DOUA (COD 81) 21” 
1F X>38 THEN 110 g30 ko 
170 IF X <> INT(X) THEN 110 660 FOR 1 22 T0 35 STrP 3 
180 IF Z <£ $ THEN 110 870 IF S <) 1 THEN 090 
190 IF Z <> INT(2) THEN 110 820 Kai 
210 IF 2 > S00 THEN 110 890 NEXT 1 
220 IF A(X) = 0 THEN 250 700 1F K = 4 THEN 620 
230 PRINT “ ACEST COD A MAI FOST * 910 GOTO s20 
240 GOTO 110 920 REM * COLOANA A TREJA(COD 42) 21 * 
250 A(X) «1 920 K=0 
260 NEXT C 940 FOR i = 3 TO 36 STEP 3 
270 PRINT 950 IF SC 1 THEN 970 
275 PRINT "wwuex SE INVIRTE ROATA kxmna” ?6O kai . 
276 PRINT 970 NEXT 1 
2830 S = 1 + INT(28*RNDL(X)) 950 IF Ka 1 THEN 620 
290 X(S) a X(S)+i 990 GOra $30 
300 IF Ss < 37 THEN, 3640 1000 REM * 1 = 18 (COD 43) îsi * 
310 IF S = 37 THEN 340 1010 1F $ < 19 THEN 1030 
320 PRINT ” CISTIGA 00 " 1020 GUTO 520 
230 GOTO 490 1030 PRINT * CISTIG *3B(C)s* BANI CU MIZA sc 
340 .PRINT " CISTIGA 0 * 1040 Da D-B(c 

GOTa 490 1050 Pa Pe 60 

RESTORE 1060 GOTO 1540 
370 K=0 1070 REM * 19 - 36 (COD 44) tsi * 
380 FOR 1 = 17018 1080 IF S < 19 THEN 830 
390 READ R 1090 IF S$ < 37 THEN 1030 
400 IFR O S THEN 420 1100 GOTU 550 
s410ok.=1 1110 REM * NR. PAR (COD 44) tat 
420 NEXT 1 1120 IF $/2 <> INT(S/2) THEN S80 
430 IF K = 1 THEN 470 1130 IF $ < 37 THEN 1930 
440 As = "NEGRU" 1140 GOTO 580 
450 PRINT * CISTIGA *1$:" , "49 1150 REM * NR. IMPAR (COD 45) îsi 
460 GOTO 490 1160 “IF S/2 = INT(S/2) THEN 300 
470 A8 =" ALB” 1170 IF $ < 37 THEN 1020 
480 GOTO 450 1180 GOTO S20 
490 PRINT 1190 REM ” RUSU (COD 47) dei * 
500 FORCe1TOY 1200 RESTORE 
510 1F Tica < 37 THEN 1400 1210 Ka0Q 
«520 ON T(C)-36 GOTO 560,660,710,760,840 1220 FOR 121 TO 19 
525 ON T(C)=41 GOTO 920, 1000, 1070, 4410 1230 READ R 
S30 ON T(C)-45 GOTO 1150,1190,1290 1240 IF $ < R THEN 1260 
540 GOTO 1400 1250 K=1 
560 REM " 1 - 12 (COD 37) 21 * 1260 NEXT 1 
570 IF S «= 12 THEN 820 1270 IF K m 4 THEN 1030 
580 PRINT " PIERDERE ";B(C)ș* DANI CU MIZA * 1280 GOTO seo 
590 D= 0D+ B(C) 1290 REM * NEGRU (COD 48) îsi * 
600 P=P - B(C) 1300 RESTORE 
610 GOTO 1540 , 1310 Kk.=0 
620 PRINT * CISTIO ";B(C)w25* BANI CU MIZA * 1320 FOR 1a 1 TO 18 
630 D = D - B(CDmz 1330 READ-R 
640 PP + BuL)re 1340 IF $ <> R THEN 1340 
650 GOTO 1540 1350 K=1 
660 REM * 13 -24 (COD 38) 21 * 1360 NEXT 1 
670 IF S >X12 THEN 690 1370 IF K = 1 THEN 580 


630 GOTU Stu 1380 IF $ > 36 THEN 380 
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1391 GNTO 1030 

1400 REM * O SI 00 (COD 49 SI 50) tii ” 
1410 1F TIC) <49 THEN 1470 

1420 IF T(C) e 49 THEN 1450 

1430 IF T(C) = 30 THEN 1470 

1440 GOTO 580 

1450 IF S = 37 THEN 1510 

1460 GOTO S80 

1470 IF S = 38.THEN 1510 

1420 GOTO 580 

1490 IF T(C) a S$ THEN 1510 

1500 GOTO 580 

1510 PRINT * CISTIGUL ";B(C)w35;* BANI CU MIZA "sc 
1520 D= D - B(C) » 35 

1530 PP + B(C) n 35 

1540 NEXT C 

1550 PRINT ” BANCA ":Dp” BANI * 
1560 PRINT * AVETI ";P;* BANI * 
1570 IF P > 0 THEN 1600 

1580 PRINT " NU MAI AVETI BANI * 
1590 GOTO 1630 

1600 IF D > O THEN 1630 

1610 PRINT * S-A GUOLIT BANCA ” 
1620 D = 101000 € 

1630 PRINT " CONTINUAM? (DA/NUD * 
1650 INPUT Y$ 

1660 IF Y$ = “DA” THEN 50 

1660 STOP 

1670 DATA 1,3,5,7,9,12,14,16,18,19,21,23,25,27 
1475 DATA 30,32, 34, 36 

1680 END 


13.23. Trasarea bioritmului 


Programul solicită pentru persoana căreia i se trasează bioritmul urmăe 
toarele date : 

— data naşterii ; 

— data de la care se doreşte începerea trasării. 

Se verifică dacă anul, luna și ziua de naștere sînt corecte, dacă nu, se 
reia întrebarea. La fel se verifică data trasării și dacă data trasării este după: 
data nașterii. 

Se calculează numărul de zile trecute de la data nașterii pînă la data 
trasării. Diferenţa de ani (U-A) între trasare şi naștere ; diferenţa de zile 
(X—Z) între zilele de trasare și naștere ; anii bisecți pentru care se adună cite 
o zi (B) ; lunile între naştere și trasare X (Zi) se iau în considerare la calculul” 
zilelor. Formula de calcul este 


N=(U—A)*3652 Z(7i)-+(X—Z)+B 


Se trasează pe o perioadă de 15 zile, începînd cu data solicitată, bioritmul 
persoanei în cauză. Intervalul de 15 zile a fost ales pentru a avea o imagine 
suficient de bună (neînghesuită) pe ecran. 

După iniţializarea ecranului se trasează axa pe care se marchează cele 
15 zile. Subprogramul 1000 calculează valoarea curbei sinus în funcţie de varia- 
bila I cu care se apelează. Pentru variaţia intelectului periodicitatea este 33: 
zile, pentru psihic 23 zile iar pentru fizic 28 zile. Curba intelect se marchează» 
cu *+“, cea pentru psihic cu “*“ iar cea pentru fizic cu *.“. Dacă cele 15 zile 
trec dintr-o lună în luna următoare se apelează subprogramul 1300. Pe ecran; 
se trasează 3 sinusoide cu caracterele de mai sus. 

Programul poate fi reluat pentru altă dată de lansare a trasării bioritmuluii 
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NS deea” 20 are are 
295 FOR [ = Let TO Y-i 

15 T(î)-3i 300 N = NrTtI) 

20 (2) = 28 305 NEXT | 

25 T(3) „31 310 INITP 

30 T(4) = 30 320 PRINT AT(15,1); n-o... .....€] 
35 Tis) „ai 325 PRINŢ none . 

40 T(6) = 30 330 FOR J « 2 TO 30 STEP 2 

45 T(7)a3i 340 PRINT AT(15,9;*1* 

so T(8) =31 350 NEXT J 

55 T(9) a 30 360 ON Y GOTO 370,380,390,400,410,420 
60 Tiio)= 31 362 H = Y-6 

-65 TUil)= 30 365 ON H GOTO 480,440,450,460,470,480 
70 Ti12)a 31 370 PRINT ATt2,2);U;*,";X;","; *LANUARIE* 
75 PRINT * DATA NASTERII * 375 60T0 490 

S0 PRINT * ANUL * 380 PRINT AT(2,2);U:,";X;","*; "FEBRUARIE? 
85 INPUT A 385 GOTO 490 

90 PRINT * ZIUA * 390 PRINT AT(2,2);U;*,*;X;*,"; “MARTIE” 
95 INPUT 2 395 G0T0 490 

100 PRINT * LUNA * 400 PRINT AT(2,2);U;*,*;X;*,"; "APRILIE" 
105 INPUT L 205 GOTO 490 

110 IF A > 1999 THEN 75 410 PRINT AT(2,2);U;*,*;X;","; *HAL* 

115 1F A < 1900 THEN 75 315 GOTO 490 

120 IF 2 < 1 THEN 75 420 PRINT AT(2,2);U;*,*;X;","; IUNIE» 
123 DE 2 > 31 ȚHEN 75 425 GOTO 490 

130 IF L< 1 THEN 75 430 PRINT AT(2,2):;U;*,*;X;",";"LULIE* 
135 IF L > 12 THEN 75 435 GOT0 490 

140 PRINT * DATA LANSARII ANALIZEI * 440 PRINT AT(2,2):U;*,*4X:;","; "AUGUST* 
145 PRINT * ANUL » 415 GOTO 490 

150 INPUT U 450 PRINT AT(2 2):U;",";X;","; "SEPTEMBRIE 
155 PRINT * ZIUA * 455 GOTO 490 

160 INPUT X k 460 PRINT AT(2,2):U;",";X;*,"; "OCTOMBRIE" 
165 PRINT * LUNA * 465 GOTO 490 

170 INPUT Y 470 PRINT AT(2,2);U;*.";X;",*; "NOEMBRIE* 
175 IF U <A THEN 140 475 GOTO 490 

180 IF U > 1999 THEN 140 480 PRINT AT(2,2);U;*,*;X;","; "DECEMBRIE* 
195 IR X < 1 THEN 140 490 FOR K = 1 TO 21 STEP 10 

190 IF X > 31 THEN 140 S00 IF X < 10 THEN 530 

195 IE Y < | THEN 140 510 PRINT AT(16,k);X 

200 IF Y > 12 THEN 140 920 GOTO 540 

205 8.0 530 PRINT AT(16,k+1);X 

210 ca 540 X = X+5 

215 IF INT(C/4) <> C/4 THEN 225 350 IF X <a 28 THEN 700 

220 a Bet 560 IF Y <> 2 THEN 610 

225 C = Cel 370 H = 29 

230 IP C <= U THEN 215 380 IF INT(U/4) + U/A THEN 690 

235 IF INT(A/4) <> A/4 THEN 250 S2RA, =. 28 

240 IF L <= 2 THEN 250 69 Bop 490 

245 B e B-1 410 IF X <= 30 THEN 700 

620 H = 30 
259 15 Vo 2 fe 209 m 269 630 IE Y = 4 THEN 690 
pe, i i 04 ua ct 
» - - e ai 

Ș68 pe (răutatea sa0 18 e £ (i Titu eo 

a pop To Lat 670 IF X = 31 THEN 700 
280 N = N-T(L) pe Aa A dati 

285 NEXT 1 7 

00 NEXT K 


710 FOR E = 2 TO 30 STEP 2 

720 3 = 33 

730 GOSUB 1000 

740 PRINT AT(H,E);"+* 

750 J = 23 

760 GOSUB 1000 

770 PRINT AT(H,E);*x* 

780 J = 28 

790 G0SUB 1000 

800 PRINT AT(H,E);*.* 

810 N = N+1 

820 X = X+t 

830 IF T(Y) < 6 THEN 8650 

840 G0T0 860 

850 GOSUB 1300 

860 NEXT E 

870 PRINT AT(27,2);"INTELECT a + * 
880 PRINT AT(28,2); "PSIHIC an: 
890 PRINT AT(29,2); "FIZIC it 
900 STOP 

1000 F = INT(N-INT(N/J)uJ) 

1005 F = (F/I)uPIw2 

1010 FE s.SINI(F> 

1015 H = IS-INT(Fx10) 

1020 RETURN 

1300 IF Y <> 2 THEN 1340 

1305 IF INT(U/4) <> U/4 THEN 4340 
1810 IF X <> 29 THEN 1340 

1310 X = X+1 

1320 Y = Y+1 

1325 IF Y <= 12 THEN 134Q 

1330 Y =1 

1335 U = U+1 

1340 RETURN 
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13.24. Dicţionar de sinonime 


Programul permite crearea unui dicționar de sinonime în două sau trei 
limbi. 

l-a creare (lansare program prin RUN) se stabileşte dacă se creează în 
2 sau 3 limbi și limbile în care se creează. L-a lansare cu GOTO 10) se utilizează 
dicționarul creat. În acest caz se poate căuta după oricare limbă (sau după 
oricare rubrică) un cuvînt obţinînd celelalte cuvinte (rubrici). 

L-a lansare cu GOTO 10 mai există posibilitatea de completare a dicţio- 
narului (fișierului) creat cu cuvinte noi. 

Dacă la căutare nu se găseşte cuvîntul cerut, se revine la secvența de 
căutare sau de completare a dicționarului. 

Programul poate fi utilizat şi ca bloc-notes, cele 3 rubrici corespunzătoare 
celor 3 limbi putînd conţine orice informaţie (de ex. numele unei persoane, 
adresa şi numărul de telefon asociate). 


10 PRINT * DICTIONAR DE SINONIME * 

20 IFN =: 0 THEN 400 

30 REM * DICTIONAR CREAT * 

10 PRINT * DATI CUVINTE NOL (DA=t) * 
SO INPUT G 

60 IF G = 1 THEN 400 

70 REM * CAUTARE IN DICTIONAR * 

80 PRINT *-DUPA CARE LIMBA CAUTATI? * 
90 INPUT Bs(T0» 


100 A = 0 
110 IF 8$ = X$ THEN 180 
120 A : 


130 IF 8% = Y$ THEN 180 

140 IF M = 2 THEN 80 

150 A = 2x1, 

160 IF B% = 2$ THEN 180 

170 G0T0 80 

180 PRINT * DATI CUVINTUL ÎN LIMBA *;8$ 
190 INPUT Cs(T0) 


200 121 
210 1F C$ = DS(1,Ar1TOA+L) THEN 260 
220 1 = tei 


230 IF | <= N THEN 210 > 

240 PRINT * NU EXISTA CUVINTUL *;C$ 

250 G0T0 8o 

260 PRINT DS$(1,TOL); “a, 

270 IF M = 2 THEN 290 

280 PRINT D$(1,L+1T02xL); "e", 

290 PRINT D$(1,l+(M-1)*LTOM*L) 

300 GO0T0 80 

400 REM * CREARE SI COMPLETARE DICTIONAR * 
410 IF N <> O THEN 520 

420 PRINT * IN 2 SAU 3 LIMBI CREArI? * 
430 INPUT M 

A40 DIM D5(40,Mx15) 

450 DIM Ccşi(15) 

460 PRINT * DATI LIMBILE DICTIONARULUI * 
470 INPUT X$ 

480 INPUT Y$ 

490 IF M = 2 THEN S10 

S00 INPUT 2$ 

S10 L = 15 

520 IF N > 40 THEN 620 

S$30 PRINT * DATI CUVINTUL IN LIMBA *;X$ 
540 INPUT D$(N,TO15) 

530 PRINT * DATI CUVINTUL IN LIMBA *;Y$ 
560 INPUT D$(N,16T030) 

970 IF M = 2 THEN 600 

580 PRINT * DATI CUVINTUL IN LIMBA *;2$ 
590 INPUT DS$(N,31T04$) 

600 N = Ne 

610 GOTO 520 

620 STOP 

630 END 
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13.25. Ordonarea unui set de informaţii 


Programul posedă un set de date (în cazul de faţă datele constau din 
numele, greutatea și înălțimea unui grup de persoane) pe care le poate ordona 
după un criteriu dat. 

În exemplul de față, ordonarea se face pentru ordinea alfabetică, după 
greutate sau după înălțime. După ordonare, se afișează lista de date ordonată, 


i idle i stie. z 2 
S PRINT » ORDONAREA DUPA ALFABET * 
7 PRINT * GREUTATE SAU INALTIME * 
10 DIH A$(20,10),S(20),K(20) 

15 N=0 

20 N = +1 

25 READ AS(N,TO) 

30 READ M(N) 

35 READ S(N) 

40 IF AS(N) <> "STOP" THEN 20 
45 PRINT * DATI CRITERIUL DE ORDONARE * 
50 PRINT * 1 = ALFABET * 

55 PRINT * 2 = GREUTATE * 

60 PRINT * 3 = INALTIME * 

65 INPUT O 

70 REM * ORDONAREA * 

75 c=o0 

80 FOR K = 1 TO N-1 

85 ON 0 G0T0 90,100,110 

90 IF AS(R) > AS(K+1) THEN 120 
95 GOTO 170 

100 IF S(R) > S(K+1) THEN 120 

105 GOTo 170 

110 IE H(K) > H(K+1) THEN 120 

115 GOTO 170 

120 S = S(k) 

125 S(K) = S(k+1) 

130 S(k+1) = $ 

135 BS = AS(K,TO) 

140 AS(RD = AS(K+1,T0) 

145 AS(k+1) = B$(T0) 

150 M = H(kD 

155 MR) = M(k+) 

150 M(k+1) =H 

165 € = cot 

170 NEXT K 

175 1E C > 0 THEN 75 

180 ON 0 GOTO 185,195,205 

185 PRINT * NUME “;* INALTIME 22 GREUTATE * 
190 G0T0 210 

195 PRINT * NUME  ";" GREUTATE * 
200 G0T0 210 

205 PRINT + NUME  *;" INALTIME * 
210 FOR I =1 TON 

215 ON 0 GOTO 220,230,240 

220 PRINT AS(1);" ";H(1);* a;Sc1) 
225 GOTO 245 i: 

230 PRINT AS(1);* *;S(1) 

235 GOTO 245 

240 PRINT AS(1);" ";G(1) 

245 NEXT | 

250 SToP 

260 DATA "POPESCU*,200,80 

265 DATA “CONSTANTIN*,175,65,4 
270 DATA "BARNA*, 180,70 

275 DATA "MHARESCU", 185,71 

280 DATA "MICUTU',205,91 

285 DATA "ST0P",0,0 

300 END 


13.26. Decodificarea numerelor romane 


Programul serveşte la transformarea numerelor romane în numere zeci- 
male. Se introduce numărul roman sub forma unui șir de litere. Decoditicarea 
se face în baza regulilor definite prin DATA în liniile 440—550 din program. 
Regulile specifică succesiunea corectă de cifre romane ; o succesiune eronată 
este semnalată printr-un mesaj. Numărul decodificat este apoi afişat pe ecran. 


Decodificarea numerelor romane 211 


După introducerea numărului roman în șirul T$ şi a lungimii numărului 
(din cite litere se compune) în L, se citește prima literă și se verifică dacă e 
din setul de litere permise într-un număr roman (M, D, C, L, X, V, 1). Prima 
literă poate fi oricare dintre aceste litere. Aceasta e specificată în prima linie 
de DATA unde de exemplu 100002 înseamnă că dacă litera e M valoarea este 
de 1000 iar după M pot să apară litere după regula (02) care se găseşte în linia 
următoare de DATA. Valoarea-l în DATA înseamnă că numărul respectiv nu 
poate apare, deci se semnalează succesiunea eronată. 


10 REM DECODIFICAREA NUMERELOR ROMANE * 
20 DIM A(10,7),c$(7,1) 

30 MAT READ A(t1,7) 

40 CS(1) = "ur 


So cs(2) = "p* 
60 Cst3) = "cr 
70 C$(4) = "Lr 
89 C$(S) = "x" 
90 Cs(6) = "vu" 


100 Cs(7) zi) 
110 DIM T$(20» 


120 (i 
130 H=o0 
140 cC=o0 
150 p=:0 


160 PRINT * DATI NUMARUL ROMAN 
170 INPUT T$(T0) 

180 L=0 

190 FOR I 1 TO 20 

200 IF TS(ITOl) e? THEN 220 
210 L = Lei 

220 NEXT 1 

230 FOR |» 1 T0L 

240 ka 0 

230 FOR J > 1107 

260 IF T$(ITOI) <>) C%tJ) THEN 280 
270 kJ 

280 NEXT 

270 IE K <> O THEN 320 

300 PRINT * NUMA ROMAN ERONAT 
310 GOTO 120 

320 X = A(R,K) 

330 IF X < O THEN 300 

340 C = (1 -ABS(SGN(K-P)))m(Cri) 
350 1F C > 2 THEN 300 


360 P. «i 

370 M = H+INT(X/100) 

380 R = X-100xINT(X7100) 
390 1 


FR <> O THEN 410 
1 


430 GOTO 120 

440 REM * DECODIFICAREA CONDITIILLOR P! 

430 REM * M „d c L x v 1 
460 DATA 100002, 50003, 10008, 5005, 1009,507,110 
470 DATA 100002, 50003, 10008,5005,1009,507,110 


480 DATA -1 „ “1 „10008,5005,1009,507,110 
490 DATA cd -1 ,10004,5005,1009,507,110 
500 DATA Să -1 -1 ,5006,1009,507,110 
510 DATA d: i: A -1 ,1006,507,110 
520 DATA =3 ul “1 PR A > 007 
530 DATA 80005, 30005, 10004,5006,1009,507,110 
540 DATA at să | 8007, 3007, 1006,507,110 
550 DATA ep Pi SF pt, “ep 800,300, 107 
560 END 


13.27. Mira de control AMIC 


Programul generează o imagine de control asemănătoare mirei TV, cuprin- 
zind trasări de drepte orizontale şi verticale, a unui cerc circumscris unui pătrat, 
şi a setului de caractere, inclusiv cele semigrafice. Mira obţinută poate fi utili- 
zată la reglajul calităţii imaginii TV. 
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10 REM * IMAGINE DE CONTROL * 
INIT P 


30 PRINT AT(2,1);"HHhh IMAGINE DE CONTROL hit! 
40  WINDOU 0,150,0,160 

SO MOVE 152,75 

60 FOR 1 = 0 TO 2*PI1 STEP P1/10 
70 DRAW 75+67*C0S(1),7S+67*SIN(12 
80 NEXT 1 

90 MOVE 0,142 

100 DRAU 160,142 

110 MOVE 0,132 

120 DRAU 160,132 

130 PRINT AT(5,1);"4p" 

140 PRINT AT(5,23);"hH” 

150 PRINT AT(6,1);"%h” 

160 PRINT AT(6,23);"th” 

170 PRINT AT(29,1);"HH" 

180 PRINT AT(29,23);"H4" 

190 PRINT AT(30,1);"M4H" | 
200 PRINT AT(39,23);"HH'" 

210 MOVE 0,117 

220 DRAU 160,117 

230 MOVE 0,35 

240 DRAU 160,35 

250 MOVE 0,20 

260 DRAW 160,20 

270 MOVE 0,2 

280 DRAW 160,9 

290 PRINT AT(7,7); "White" 
300 PRINT AT(8,7); "ttthhhthhhtnt" 
310 PRINT AT(9,7); "Whhhhnnhin” 
320 PRINT AT(26,7); "hint" 
330 PRINT AT(27,7); "WHWRh tt” 
340 PRINT AT(28,7); "With" 
350 MOVE 0,100 

360 DRAU 160,100 

370 MOVE 0,50 

380 DRAU 160,50 

390 MOVE 0,75 

400 DRAU 25,75 

410 MOVE 128,75 

120 DRAU 160,75 

430 MOVE 17,0 

440 DRAU 17,140 

450 MOVE 25,0 

460 DRAU 25,140 

470 MOVE 128,0 

480 DRAU 128,140 

490 MOVE 137,0 

S00 DRAU 137,140 

$10 PRINT AT(14,6);"!1""R$787(0)x+,./” 
S20 PRINT AŢ(16,5); "0123456789:;€=)2* 
530 PRINT Art(18,$); "ABCDEFGHI JKLHNOP* 
940 PRINT AT(20,5); "RSTUVUZ CN]+" 
550 MOVE 41,0 

560 DRAU 41,50 

570 MOVE 41,100 

S80 DRAW 41,140 

590 MOVE 107,0 

600 DRAU 107,50 

610 MOVE 107,100 

620 DRAW 107,140 

630 REM "SsTop" 

640 60T0630 - 

630 ENDe 


13.28. Ceas electronic 


Programul solicită prin dialog ora exactă, după care afișează imaginea 
unui ceas cu arătătoarele în mișcare. În dreapta-jos a ecranului se afişează 
şi ora sub forma HHMM. Reglajul avansului se face în linia 250 din program. 
Constanta T are valoarea de aprox. 11 000, o valoare mai mare ducînd la “întîr- 
zierea“ ceasului. 
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Le 


10 PRINT CEASU 
DATI ORA DE PORNIRE * 


20 PRINT 
30 INPUT 
40 PRINT 
SO INPUT M 

60  INITP 

70 PRINT AT(6,13);*w% 

80 PRINT AT(16,21);*x% 

90 PRINT AT(26,13);*x* 

100 PRINT AT(16,3);*x* 

110 MOVE 52,52 

120 6 = (M*PI/30) 

130 DRAU 52+30x*SIN(G),52+30xC0S(62 
140 MOVE 52,52 

150 6 = (H+M/60)*P1/6 

160 DRAU S52+30*SIN(6),52+30xC0S(G) 
170 PRINT AT(30,24);H;":";M 

180 M = M+i 

190 IF M = 60 THEN 210 

200 GOT0 250 

210 H=0 

220 H = Hei 

230 IF H <> 24 THEN 25Q 

240 H=0 

250 T = 11000 

260 FOR 1 =1T0T 

27C NEXT 1 

280 GOTO 60 

290 END 


= e = 


MINUTUL * 


13.29. Anagrame 


Programul solieită introducerea unui şir de max. 20 de caractere, afișind 
apoi combinaţii aleatoare ale şirului. 

Cuvîntul se introduce în variabila şir A$, iar lungimea șirului în N. 
În masivul A (N) se aleg aleator cifre între 1 şi N care determină litera a A (I)-a 
din cuvînt. După completarea lui A (N) se afişează literele cuvîntului în ordinea 
din A (N). După afișare se reia ciclul. Programul se continuă pînă la oprire cu 
ETRL/C, după care se poate relansa cu alt cuvînt (şir). 


k-] REM * ANAGRANA:* 
10  DIH A$(30) 
20 PRINT * DATI UN CUVINT » 
30 INPUT AS(TO> 
40 N-=0 
SO FOR 1 = 1 T0 20 
60 IF AS(ITOL) 2 * “ THBN 80 
70 N = Wei 
80 NEXT 1 
90 DIN Act 
100 FOR 1 =1T07 
130 A(£) = INT(RNB(X) mei 
140 U =.0 
150 FOR J = 1 TO Zu 
160 IF (JP <> A(Ze TNEN 180 
170 y = 
180 NEXT 4 
190 4F U <a 0 THEN 130 
200 NEXT 2 
216 All a 
220 FOR 8 = 1 Ten 
230 B$ = B+A(aA(B)) 
240 NEXT 8 
230 PRINT 8$ 
260 NEXT X 
270 GOTO 100 
[2] 
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13.30. Bugetul cheltuielilor zilnice într-o familie 


Programul solicită introducerea cheltuielilor efectuate pe zile ; noile 
cheltuieli se introduc după ultima zi completată într-o rulare anterioară. La 
cerere, se afișează totalul cheltuielilor și histograma cheltuielilor pe zile. 

Dacă se introduc cheltuielile pentru primele zile se lansează programul 
cu RUN. Pentru completare de cheltuieli se lansează cu GOTO 20. Histograma 
cheltuielilor se dă la cerere. 


10 DiM Atai) 
1.1 


20 PRINT ” CITE ZILE INTRODUCETI? * 
25 INPUT N 

30 FOR] = 1T0N 

40 INPUT A(I) 

Sa [= 1+1 

60 NEXT J 

70 PRINT " VRETI _HISTOGRAHA DA/NU * 
80 INPUT D$ 

90 IF D$ <> "DA" THEN3IO 


C = 
T = 

120 FOR J = 2T01 
D= 


130 C-A(J) 

140 IF D >= O THEN 160 

150 C = A(J) 

160 T = T+atl) 

170 NEXT !] 

180 INITP 

190 PRINT AT(1,1);" HISTOGRAMA CHELTUIELILOR y 
195 PRINT AȚ(2,1);" PB *;1;" ZILG 

200 PRINT AT(3,1)," TOTAL CHELTUIELI *;T 


210 WINDOU -10,110.-10,110 
220 MOVE 0,-10 

230 DRAU 0,100 

240 MOVE -10,0 

250 DRAU 100,0 

260 FOR] = 1 T0 1 
270 A(J) = 100A11)/c 
280 MOVE J*3,0 

290 DRAU J»3,AtJ) 

300 NEXT J] 

310 SToP 

320 END 


13.31. Microfișier 


Programul permite crearea și exploatarea unei microbaze de date generată 
sub forma unui tabel de articole. Fiecare articol poate conţine mai multe cîm- 
puri de lungimi diferite. 

La creare se definește baza de date, prin următorii parametri : 

— nume ; 

— număr maxim de articole (max. 254); 

— număr cîmpuri/articol; 

— denumirile şi lungimile fiecărui cîmp. 

În funcţie de parametrii dați, se dimensionează tabelul ce va conţine baza 
de date. Se verifică dublele definiţii pentru numele asociate cîmpurilor. 

Exploatarea bazei de date se execută cu ajutorul următoarelor comenzi 3 


a) introducere articol — se caută o linie (articol) vidă din tabel şi se in- 
troduc valorile asociate fiecărui cîmp din articol. Introducerea unui articol 
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se execută prin afișarea numelui fiecărui cîmp și introducerea conținutului 
cîmpului de către operator. 

Dacă numai există loc pentru un nou articol (tabel plin) se emite mesajul 
FIȘIER PLIN, după care se poate utiliza comanda de ştergere articol şi intro- 
ducerea celui solicitat. 

b) ştergere articole după conţinut — se şterg articolele care conţin infor- 
maţii identice într-un cîmp dat. Se solicită denumirea cîmpului şi conţinutul 
său. Se caută fiecare articol care conţine în cîmpul respectiv informaţia dată 
şi se șterge articolul respectiv. 


c) listare articole — se listează articolele din cadrul fişierului. 


1) modificare cîmpuri după conţinut — se solicită numele cîmpului, 
vechiul conţinut şi noul conţinut. Se listează fiecare articol ce conţine cîmpul 
cu informaţia identică cu „conţinut vechi“ şi se întreabă operatorul dacă 
doreşte sau nu modificarea articolului. 


E-] PRINDA WI CROFISI8R"* 
10 IF P <> O THEN 215 


15  REW ” SE CREEAZA FISIER NOU * 295 sin) -2 

20 PRINT * DATI NUME FISIER * 300 L = Lei 

25 INPUT PS 305 PRINT * MAI INTRODUCETI (Dâ=t) 

36 Pat 310 INPUT C 

35 PRINT * DATI NUMAR MAXIM ARTICOLE * 315 IF Cc = 1 THEN 245 

40 INPUT T 320 G0T0 165 

45 PRINT * DATI NUMAR CIMPURI/ARTICOL * 325 PRINT * SE LUCREAZA CU FISIERUL *;P9 
So INPUT N 330 REM " STERGERE ARTICOLE DUPA CONTINUT” 
55 DIM CS(N,10),L(N),S(T),S$(3,10),X$(10) 335 PRINT " DATI NUME SI CONTINUT CIMP * 
60 HAT S = ZER 340 PRINT " DUPA CARE SE STERG ARTITOLELE” 
65 PRINT * DATI DENUMIRE SI LUNGIME CIMP * 345 INPUT S$(1,10) 

70 2-0 350 INPUT S$$(2,10) 

75 FOR I=1 TON 355 GOSUB 1000 

80 INPUT Cs(1,10) 360 IF 1 < O THEN 165 

85 INPUT L(I) 365 D= 

90 D= DeLiI) 370 GOSUB 1100 

95 NEXT II 375 IF D > T THEN 163 

100 2:11 380 s(D) =0 

105 FOR | = 1 TO N-I 385 | = L-1 

115 X$ = Csi) 390 60T0 370 

120 FOR C = I+1 TON 395 PRINT * SE LUCREAZA CU FISIERUL *;Pe 
125 IF X% <> C$(C) THEN 135 100 REM ” LISTARE FISIER * 

130 D = -1 405 FOR 1=1T0N 

135 NEXT C 410 PRINT Cst1);",": 

140 NEXT | 415 NEXT 1 

145 IF D = 1 THEN 160 420 PRINT 

150 PRINT * CIMPURI CU ACELASI NUME * 425 FOR 1 = 1 T0T 

155 STOP 430 IF S(1) = 0 THEN 440 

160 | = 0 435 GOSUB 1200 

165 PRINT " INTRODUCETI COMANDA * 440 NEXT 1 

170 PRINT * 1 = INTRODUCERE ARTICOL * 445 GOTO 165 

175 PRINT * 2 = STERGERE ART. DUPA CONTINUT * 450 PRINT * SE LUCREAZA CU FISIERUL *;P9 
180 PRINT * 3 = LISTARE ARTICOLE * 455 REM * HODIF.CIMPURI DUPA CONTINUT” 
185 PRINT " 4 = MODIF.CIMPURI DUPA CONTINUT * 460 PRINT " DATI NUME ClMWP SI CONTINUT 
190 PRINT " 5 = LISTARE PT. MODIFICARI * 465 PRINT * VECHI SI NOU" 

195 PRINT * 6 = TERMINARE SESIUNE * 470 INPUT ss(1,10) 

200 INPUT Cc 475 INPUT S$$(2,10) 

205 ON C GOTO 215,325,395,450,540,155 480 INPUT S$(3,10) 

210 6070 165 485 GOSUB 1000 

215 PRINT * SE LUCREAZA CU FISIERUL *;P$ 490 1F 1 < 1 THEN 165 

220 REM ” INTRODUCERE ARTICOLE * 495 D=1 

225 IF L < T THEN 240 500 GOSUB 1100 

230 PRINT " FISIER PLIN * 510 IF D > T THEN 165 

235 GOTO 165 912 GOSUB 1200 

240 D= 1 S15 PRINT ” SE MODIFICA (DA=1: 

245 1F D > T THEN 230 520 INPUT C 

250 IF S(D) = O THEN 265 525 IF C = 1 THEN 535 

255 BD = Del 530 FS(D,A+1TOA+L(I[)) = Ss(3, 

260 60T0245 535 GOTO 500 

265 A =0 540 PRINT " SE LUCREAZA CU FISIERUL *;P* 
270 FOR 1 = 1 TON 545 REH " LIGTARE FISIER PT.HODIFIARE 
275 PRINT Csi) E 550 D=1 

280 INPUT FS(D,A+ITOA+L(I)) 555 GOSUB 1200 

285 A = AeL) 560 IF D > T THEN W5 


290 NEXT 1 565 GOSUB 1300 
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570 D = Dei 

575 GOTO 165 

1000 REM .* CAUTARE NUME CIMP * 
1005 1-1 

10140 A=0 

1015 IF 1 > N THEN 1040 

1020 IF C$(1) = S$(4) THEN 1050 
1025 A = A*L(1) 

1030 1 = I+1 

1035 GOTO 1015 

1040 PRINT * NU EXISTA CIMP *;S$t1) 
1045 1 =-1 

1050 RETURN 

1100 REM 4 CAUTARE CONTINUT * 
1105 IF D > T THEN 1130 

1110 IF S(D) <> 2 THEN 1120 

1115 IF F$(D,A+1TOA+L(1)) = S$(2) THEN 1130 
1120 D = Dei 

1125 GOTO 1105 

1130 RETURN 

1200 REM " TIPARIRE ARTICOL * 
1205 B =0 

1210 FOR J =1 TON 

1215 PRINT FS(D,B+1T0B+L(J)),",", 
1220 B = B+L(J) 

1230 NEXT J 

1235 PRINT 

1240 RETURN 

1300 REM * MODIFICAREA * 

1305 PRINT * AL CITBLEA CIMP SE MODIF 
1306 PRINT * O = NU SE MODIFICA * 
1310 INPUT C 

1315 IF C = O THEN 1360 

1320 PRINT * DATI CONTINUT NOU * 
1325 INPUT S$s$(3,10) 

1330 B = 0 

1332 IF C = 1 THEN 1305 

1335 FOR J = 1 TO C-i 

1340 B = BeLi(J) 

1345 NEXT J 

1355 G0T0 1305 

1360 RETURN 

1365 END 


e) Listare articole şi modificare — se listează pe rînd fiecare articol. 
Se întreabă dacă se dorește modificarea unuia sau mai multor cîmpuri din articol. 


“Procedura continui pînă la(istîrșitul fişierului. jpg fim r 


- [-. 


13.32. Universul Conway 


Se poate studia prin aceasta creşterea, modificarea, înmulţirea şi moartea 
„celulelor lor dintr-o colonie. Viaţa celulei este influențată de celulele înconjurătoare. 


ELI Tai început pe "o zonă de N*M locaţii se generează celule vii conform 
coordonatelor date de utilizator. O locaţie poate avea două situaţii: conţine 
sau nu o celulă vie. Din starea inițială în baza legilor geneticii se ajunge la 
generații următoare. Starea locaţiilor în următoarea generație poate fi: 


1 — celula vie supraviețuiește ; 
2 — celula vie moare; 
3 — s-a generat o: nouă celulă vie. 
Cele trei stări se determină” după următourele reguli : 
1. Supravieţuieşte tiecare celulă dacă are două sau trei celule vii vecine. 


Universul lui Conway 


Fig. 13.9. Organizarea ecranului 
pentru universul lui Conway. 


$ PRINT * UNIVERSUL tara d “ 

7 PRINŢ 9 nasi 

10 PRINT * DATI CIMPUL * 

15 INPUT N,M 

20 IFN > 30 THEN 10 

25 1F M > 30 THEN 10 

30 DIM UN,M 

40 MAT u = ZER 

SO PRINT " CITE. CELULE VII INTRODUCETI? * 
60 INPUT C 

70 IF C «= N=M/2 THEN 100 

90 GOTO So 

100 PRINT ” DATI COORDONATELE CELULELOR VII * 
110 FOR 1 = 1 T0 

120 INPUT X,Y 


130 IF X > N THEN 120 
140 IF Y > M THEN 120 
150 1F X < 1 THEN 120 
160 IF Y < 1 THEN 120 
170 u(x,W si 

180 NEXT 1 

185 INILIP 


190 PRINT AT(1,2);" STAREA INITIALA ” 
195 GOTO 220 

200 INITP 

210 PRINT AT(1,2);"* GENERATIA URMATOARE * 
220 FOR 1 = 1 TON 

230 PRINT AT(1+2,1)$ 

240 FOR J=1T0M 

250 IF Ut1,yJ) = Q THEN 280 

260 PRINT “4"ș 

270 GOTO 290 

230 PRINT * " 


nu 


i 
J=1TON 

o 

Tea 

F k <= M THEN 960 


THEN 590 
TO K 
THEN 630 


Ara rAnROR 
r 
70 
Li 
- 


Pana 
n] L=ă 

CZ cxr 
Y A 

L] L] 


THEN 660 


i 
Y=PTOQ 

NTE U(Y,X9/2) 2 U(Y<K)/2 THEN 670 
Crai 


3 
-MUmVO-0 


Y 
x 
si 


Zoo 


£ U(4,1972) 5 Vi, 19/78 THEN 740 
1 

c-o 

750 IF C = 3 THEN 610 

760 IF Cc <> 2 THEN 790 


3 
că 
CORE RO 


310 p=0+2 
$20 Uty,1) =0 
rent NEXT d 
BA0 | =1+1 
ES0 IF 1 ca. M THEN S10 


ERERE 
NAN 
NAS 

NANA 
E. 


2000 FOR J=1T0mM 

2005 FOR 1 = 1 TON 

2010 IF U(I,J) > 3 THEN 2025 
2015 IF U(I,J) > 1 THEN 2035 
2020 GOTO 2045 

2025 6 =o0 

2030 GOTO 2040 

2035 6=1 

2040 U(1,J) 3 

2045 NEXT 1 

2050 NEXT 1 

2055 GOTa 200 

2060 END 
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2. Moare — dacă are patru sau mai multe celule vii vecine, motivul este 
suprapopulaţia, 
— dacă jare una sau nici-o celulă vie vecină,(motivul fiind izolarea. 
[i i 


3. Naştere — în fiecare locaţie goală se naște o celulă vie dacă are trei 
(nici mai multe nici mai puţine) celule vii vecine. 


13.33. Pătratul magic 


Într-un pătrat de mărime dată se așază numere în așa fel încît pe orizon- 
tală pe verticală şi în diagonală suma numerelor să fie aceeași. Există diferite 
metode de a genera pătratele magic. de diferite mărimi. 

Primul exemplu generează pătrate magice de grad impar utilizînd o gene= 
rare bazindu-se de următorul algoritm : 


Fig. 13.10. Pătratul magic : (a) exemplu, (b) generale. 


Pe pătratul de gradul dat se desenează piramide de pătrăţele şi în diago- 
nalele astfel formate se trec cifrele în ordine crescătoare după care cifrele în 
afara pătratului se mută cu atitea poziţii cît este gradul pătratului. 

Al doilea exemplu generează mai multe pătrate de gradul impar utilizînd 
următorul algoritm : 

Din şirul de numere 1,2, 3,4,5 ...piînă la gradul pătratului şi 0,n, 
2*n, 3*n ... (unde n e gradul) pînă la (n—1)*n aleator se generează două 
pătrate de gradul dat sub forma : 

— se alege din primul şir un șir aleator și se pune în primul rînd al pătra- 
tului ; 
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5 PRINT " PATRAT MAGIC ” 

7 PRINŢ n ==. “ 

10 PRINT “ DATI GRADUL PATRATULUI * 
20 INPUT N 

30 IF NY O THEN 70 

40 PRINT ” GRAN NEGATIV * 

GOTa 20 

IF INT( N/2 ) <> N/2 THEN 100 
PRINT “ GRAD FAR * 

GOTD 20 

IF N <= 9 THEN 100 

PRINT ” GRAD MARE * 

GTA 20 

DIM*MUN,ND 


15 = 0 THEN 210 
N2 + 1 THEN 460 


THEN 150 
200 GITD 310 

210 MI, =vV 

IF V = N*2 TIIEN 400 


-< 


+1 
0 | 
P4 
IF ui = N THEN 290 


GOTa 150 
IF 4 > N THEN 320 
1=1 
GOTO 150 
1=2 

= N 

GOTO 150 

A = (30 = N=29/2 

A=A-3 

O FOR I = 1 TON 
B=A+1-i 

GISUB 300 

8 PRINT AT(B,B-1=(1-1033)p"1” 
FOR d = 1TO0 N 

E = Batul-1)ua-t1-1)x3 

& IF MC.) >= 10 THEN 430 
Ca C+a1 

PRINT AT(E,CI;MUT, ds” 
NEXT 

A=A+2 

=A+ Io 

LO OSUR 400 

PRINI 

0 STOP 

FOR Ek=0TON 

GOSUB 800 

PRINT AT(B- 4,B-1+3xk-(1-10%395 1” 
510 NEXT K 

RETURN 

PRINT AT(B-2,B- (1-1)x3-193 
FOR L = 0 T0 3=N 

O PRINT "=" 

NEXT L 

O RETURN 

O END 


— restul liniilor se completează pornind cu numărul din pătratul de după 
mijlocul linieiJşi?continuînd cu primele ; 

— din şirul al doilea de asemenea se alege o combinaţie aleatoare; 

— restul liniilor se completează din acest şir dar acnm pornind din mii- 
locul liniei. 

Adunind cele două pătrate se obține un pătrat magic: 


220 Microcalculatorul aMIC în grafică, jocuri, aplicații diverse 


Fig. 13.11. Primul pătrat. Fig. 1312. Al doilea Fig. 13.13. Pătratul re- 


pătrat. zultât. 
10 PRINT * PATRAT MAGIC » » . 
12 PRINT n momen n 
20 DIM A(S),B(5),M(5),N(57,045),Pt59 680 DATA 0, 3,40, 13,20 
80 DIM C(3,59,D(S,S),E(S,s), e 690 END 
40 MAT READ a e 


SO MAT READ P 
GO FOR X=1T0S5 

70 MC) = INT RNDOD 5) 
80 FOR Z=22T05 

90 M(Z) = INT( RND(OXD * 5) +4 
i00u=0 

110 FOR J=1To02-1 

120 IF M(UJ) <> M(Z) THEN 140 
130 u=y 

140 NEXT J 

150 IF U <> O THEN 90 

160 NEXT Z 

165 NEXT X 

170 FOR X=1T0$5 

180 N(1) = INTC RND(X? » SS) ei 
190 FOR Z=2T05 

200 N(Z) = INTE AND(X) 35) 
210 u=0 * 

220 FOR Ja 1 T0 2-0 

230 IF N(J) 4 N(ZD THEN 250 
240 u=y 

250 NEXT y 

260 IF U <> O THEN 200 

270NEXT 2 

280 FOR Ja sTo$ 

290 Aty) = O(n) 

300 B(J) = P(N(U3S 

310 NEXT 
315 NEXT X 
320 FOR 1 = 1 s 
330 FOR J= tT0S 
340 C(L,yJ) a Mt) 
350 D(L,J) = Bt 


350 NEXT J 

370 MA) = Ac 
200 M(2) = A(59 
290 M(3) = Atid 
400 M(4) = A(2) 
410 M(5y = At3 
420 NU) = B(3 
430 N(2) a B(4) 
440 W(3) a B(5) 
250, N(4Y a Bc4> 
460 N(5) = B(2) 


PRINT/ATCIL-8) 3 mmm 


netaeanee 


i 
PR 
i 


629 NEXT o 

630 NEXT d 

640 GOTO» 60 

670 DATA 1,2.9,4,5 


Capitolul 14. Testarea resurselor hardware 
şi a interpretorului BASIC 


Procedura de punere la punct a microcalculatorului urmează următoarea 
înlănţuire de faze distincte : 

— pe placheta implantată cu componente electronice nealimentată se 
verifică — ohmetric — magistrala de adrese, date, comenzi; scurtceircuite 
între alimentări (respectiv masă), cum şi restul pinilor de circuite ; 

— pe placheta alimentată, dar fără circuitele ISI se verifică prezenţa 
tensiunilor, nivelul lor, cum şi modulele funcţionale, în următoarea ordine : 
prezența şi corectitudinea semnalelor delivrate de sincrogenerator, corectitu- 
dinea tastării RESET şi INI; 

— pe placheta alimentată cu circuitele ISI prezentate şi cu un EPROM 
de test programat cu NOP (de la adresa () se verifică magistrala de 
adrese şi date ; 

— se verifică corectitudinea semnalelor microprocesorului de comandă 
a memoriei, de selecţie etc. în conformitate cu diagrama de timp, înlocuind 
EPROM-ul de test cu un altul care asigură un program de scriere/citire în 
memoria RAM şi selecţia circuitelor EPROM de pe plachetă ; 

— cu EPROM-ul monitor implantat se verifică corectitudinea tastării, 
se reglează interfaţa cu receptorul TV și casetofonul audio ; 

— se trec testele hardware, se verifică comenzile de monitor şi setul de 
instrucțiuni BASIC. 


14.1. Prezentare generală a setului de programe de test 


Setul de programe realizat urmăreşte testarea logic-funcţională a modulelor 
harda microcalculatorului aMIC. 

Programul TEST aMIC are următoarele module, corespunzătoare modu- 
lelor funcţionale pe care le testează : 

R-RAM Testarea zonei de memorie RAM 

E-EPROM Testarea zonei de memorie EPROM 

D-DISPLAY Testarea afişării pe ecran 

K-TASTATURA Testarea preluării de caractere de la tastatură. 

Aceste programe pot fi executate în regim automat, ciclînd, fără inter- 
venția operatorului, sau: în regim manual în care operatorul poate selecta 
testul dorit. 
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În afară de aceste teste există proceduri de testare a interpretorului BASIC 
şi a transferului de informaţii dinspre/spre casetofon. 

Programul TEST aMIC este disponibil pe caseta magnetică, într-o va- 
riantă simplificată, sau este înscris pe EPROM. Completat cu cîteva subrutine 
modificate din monitor, formează conţinutul unei capsule 2716 de 2 Ko. Acest 
cip este amplasat în locul primului cip din EPROM-ul suport al programului 
BASIC. Programul utilizează generatorul de caractere, tabela de simboluri 
pentru tastatură și cîteva subrutine din monitor. 

Lansarea programului TEST AMIC se face prin intermediul monitorului, 
cu comanda 


Gp 800 (CR) 

Această comandă cedează controlul monitorului de comenzi al progra- 
mului de test. După ce se face iniţializarea stivei şi a variabilelor program 
(în zona de memorie RAM 5F00H 5FFFH, corespunzătoare ultimei linii de 
caractere) se afișează mesajul: 

TEST AMIC 

MOD DE LUCRUIL A SAU M. 

Apăsarea unei alte taste decit A sau M va produce menţinerea mesajului 
de mai sus. 

Următorul mesaj : 


IN 2 CIP1 SAU 2? 


cre numărul cipului de memorie EPROM plasat în poziţia 2. Această menţiune 
este necesară pentru textul EPROM, deoarece cipul care conţine TEST AMIC 
este plasat în poziţia 1. În funcţie de răspunsul la acest mesaj se va lua în con- 
siderare CHECKSUM-ul cipului 1 sau 2 la testarea poziţiei 2. din cele & 
EPROM-uri. 


În funcţie de modul de lucru, tratarea se ramifică în continuare. 
REGIMUL AUTOMAT : Se cere: 
ORDINEA TESTELOR 


care vor fi executate în regimul AUTOMAT. 

În acest regim pot fi executate testele RAM, EPROM și DISPLAY. 

Ca răspuns la acest mesaj se introduce combinaţia dorită a testelor, per- 
nuițîndu-se şi repetarea unor teste cu condiția ca numărul total să nu depăşească 
10. Dacă succesiunea de caractere R, E şi respectiv D se termină cu C, atunci 
programul va cicla pe succesiunea de teste anterior introdusă. Comanda S inter- 
calată în succesiunea de comenzi va avea ca efect terminarea testelor şi reveni- 
rea în monitorul microcalculatorului. 

După introducerea celei de-a zecea comenzi, apare mesajul: 


ZONE RAM TEST: 


Acestea pot fi în funcţie de varianta microcalculatorului, următoarele : 
60—00; 60-C0; 60—80; 40—80, A0—00 (memoria RAM alocată DISPLAY- 
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ului poate fi în zona 40—60 sau 80—A0). În continuare vor fi executate testele 
înscrise în listă, în aceiași ordine. Dacă în lista testelor nu figurează comanda 
€ atunci, după execuţie, se trece controlul monitorului de bază. 


Regimul manual : 


Pe ecran apare mesajul: 

SIMBOL TEST ; așteptîndu-se una dintre comenzile R,E,D sau K, 
care să lanseze programul test corespunzător. Comanda S trece controlul moni- 
torului de bază iar orice tastă apărată reafișează mesajul de mai sus. De asemenea, 
după execuţia unui test se revine cu același mesaj (la dispoziţia operatorului). 


14.2. Comanda E — testarea zonei de memorie EPROM 


Testul se execută în mod identic în ambele regimuri de lucru. Acest test 
constă în calcularea sumei de control pentru fiecare cip de memorie EPROM-2716 
şi compararea ei cu suma corespunzătoare anterior calculată şi înscrisă într-o 
listă de „semnături“ în programul TEST aMIC. 


Programul care urmează calculează sumele de control ale celor opt cipuri 
2716 existente și afişează valorile respective. Acest program se utilizează la 
fiecare modificare a informaţiei în memoria EPROM, valorile obținute pentru 
sumele de control trebuind să fie introduse în tabelul de „semnături“ din 
EPROM-ul de test. 


CSMART:  MVI E,00 ; Se încarcă în E nr. cipului 
ES1.: MOV B,E ; de început 
CALL CSC ; Calcul suma de control a cipului respectiv 
MOV D,A ; Se încarcă în D suma de control 
CALL CRLF ; Se afișează nr. cipului 
MOV A,B 
CALL BINASC 
CALL, AF20H ; Se afișează suma de control 
MOV A,D 
CALL BINASC 
INR E ; Increment nr. cipului 
CALL KEYIN ; Aşteaptă comanda „continuă 
CPI 43 
JZ CS1 
IMP MONIIT. 


Subrutina CSC calculează suma de control a cipului adresat 
Intrare : B =inr. cipului adresat 


Ieşire: A = sumajde control 
CSC: PUSH B 
MOV A,B ; calculul adresei de început 
RLC 
RLC 
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MOV H, A ; (H, L) conţine adresa de început a cipului 
MVI L,%9 
ADI g8 
MOV B,A ; B conţine adresa H de sfirșit a cipului 
XRAŞA 
GSC1+ ADD M ; calculul sumei de control 
MOV C,A 
INX H 
MOV A,H 
CMP B 
MOV A,C 
INZ GSC1 
POP B 
RET 


Deoarece cipul care conţine programele de test reamplasează în poziţia 1 
(primul cipyde BASIC), cipurile 1 şi 2 se testează pe rind, amplasîndu-se în po- 
ziţia 2. Eventualele erori care apar se afişează sub forma : număr cip, sumă 
de control din tabel (martor), sumă de control calculată şi o tratare a cauzei 
apariţiei erorii respective. 

Pentru testarea logicii de citire a memoriei EPROM se face, citirea şi 
calculul repetat al sumei de control pentru cipul care conține monitorul. O 
primă măsură care se poate lua în cazul apariţiei de erori este mișcarea cipuri- 
lor;în soclu, după care se va executa din nou testul EPROM în regim manual. 


14.3. Comanda K — testarea preluării de caractere de la tastatură 


Deoarece în cadrul acestui test este necesară intervenţia operatorului, 
testul se execută doar în regim manual. După afișarea mesajului de 
start test se așteaptă acționarea unei taste. Caracterul activat va fi pe o linie 
sau pe tot ecranul, funcție de comanda precedentă. 

CTRI--L — rămîne memorată și este activată prin start test. Caracterul 
corespunzător tastei apăsate va fi afişat pe o linie, apăsarea tastei DEL are ca 
efect ştergerea ultimului rînd, iar tasta BS repetă ultimul caracter tastat. 

CTRI.-C — rămîne memorată pînă la acţionarea CTRL-IL și implică 
afişarea caracterului selectat pe întregul ecran. Tasta DEL şterge ecranul, 
iar tastele BS și BLANK au acelaşi efect ca în regimul CTRL-L. 

În ambele regimuri, acționarea tastei CR transferă controlul monitorului 
TEST aMIC. Testul se bazează pe observaţiile operatorului. Se poate utiliza 
testul, prin menținerea pe ecran a caracterului H sau a caracterelor semigrafice 
pentru reglarea calității imaginii ecranului monitorului (dimensiunile rastrului, 
liniarizate, focalizare, afişare video-invers stabilă). 


14.4. Comanda D — testarea afișării pe ecran 


Acest test verifică funcționarea circuitelor de ceas și formatoare a semna- 
lului video-complex, cît şi a memoriei RAM din zona 4000-5FFFH rezervată 
afişării. 
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În primele 2 iaze se afişează pe întregul ecran „table de șah“ avind dimen- 
siunea pătratului elementar de una, respectiv patru, linii TV. Prima reţea se 
realizează prin înscrierea în RAM a octeţilor AAH şi, respectiv, 55H iar a doua 
prin afişarea caracterelor semigrafice avînd codurile 68H și, respectiv, GEH. 

După durate egale de timp imaginile sînt negativate, ceea ce se realizează 
prin complementarea informaţiei din RAM. Eventualele erori de înscriere 
în RAM la complementarea informaţiei sint sesizate uşor pe DISPLAY de 
către operator. O caracteristică a „tablei de şah“ este egalitatea între nivelul 
de alb și de negru din imagine. Pentru testarea modulatorului s-au realizat 
succesiuni de imagini care conțin cantităţi diferite de alb și de negru. 

Astfel, în a treia fază se afişează pătrățelele negre pe fond alb, utilizînd 
caracterele semigrafice (dimensiunea pătratului fiind de 8 linii TV), iar în 
a patra Îază ecranul este şters (nivelul maxim de negru). Complementînd suc- 
cesiv aceste imagini, nivelul de alb comută între 25% şi 75% în primul caz 
și între 0%, şi 100% în al doilea caz. Pentru a obţine stabilitatea imaginilor 
se fac reglaje asupra modulatorului, prin modificarea punctelor de funcțio- 
nare a etajului modulator şi modificarea raportului între semnalele de sincroni- 
zare şi cel de imagine care concură la realizarea semnalului video-complex 
(SVC). 

Pentru a testa adresarea intercalată a memoriei RAM-DISPLAY se afi- 
şează benzi verticale de contrast, de grosime echivalentă cu 8 linii TV. Benzile 
se afişează de la stînga la dreapta şi succesiv imaginea este complementată. 

Pentru tastarea îndelungată a funcționării microcalculatorului, cu afi- 
şarea pe ecran, S-au realizat programe în limbaj mașină sau BASIC de trasare 
a unor figuri geometrice (pătrate și romburi înscrise, cercuri concentrice sau 
spirale). În continuare vor fi prezentate cîteva subprograme folosite pentru 
trasarea de figuri geometrice. 

Considerîndu-se ecranul TV ca un pătrat cu latura de 256 linii TV și 
notind axa orizontală cu Ox iar cea verticală cu Oy, subprogramele testează, 
setează sau șterg orice punct TV de coordonate A (X, Y). 


Fig. 14.1. Ecranul TV. 


Subrutina ADR precizează poziţia bitului în memoria RAM-DISPLAY, 
corespunzător punctului A (X, Y). 
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Ca intrări se dau în registrele B şi C respectiv coordonatele X și Y iar ca 
ieşiri se primeşte în registrul HI, — adresa octetului și în acumulator poziția 
bitului căutat, codificată binar. Cunoscînd poziţia bitului în memoria RAM 
se pot opera asupra lui diferite acţiuni: 


testare (TESTP), ştergere (RESETP) și punere pe „1“ (SETP) 


ADR! PUSH DE ; Salvarea registrelor BC și DE 
PUSH BC 
LD HL,3FEDH ; Adresa început zonă RAM-DISPLAY 
LD DE,0020H minus 20H 
INC C ; DE= numărul de octeți corespunzător unei linii TV 
Ali ADD HL, DE 
DEC C 
IP NZ, Al ; HL= adresa primului octet din rindul TV căutat 
DEC HL. 
A21 INC HL 
LD A,B 
SUB A,08H 
LD B,A 
JP NC A2 ; HL, conţine adresa octetului căutat 
ADD A,BN; ; A= conţine nr. de ordine a bitului căutat în octet 
LD C,A 
INC C 
SCF CX 4! 
XOR A ; A=00; 
A31 RLA 
DEC C - 
JR NZ,A3 ; A= conţine un singur ''1”” în poziția corespunzătoare 
POP BC bitului căutat 
POP DE 
RET 


SETP : CALL ADR ; Punerea pe ''1''a bitului adresat de registrele B și Q. 
OR (HL) 
LD (HL),A 
RET 

RESETP: CALL ADR ; Ștergerea bitului adresat de registrele B şi C 
CPL 
AND (HL) 
LD (HL)A 
RET 

TESP : CALL ADR ; Testează bitul adresat 
AND (HL) ; Dacă este zero, flagul Z se poziţionează pe 1. 
RET 


14.5. Comanda R — Testarea zonei de memorie RAM 


14.5.1. Deserierea modurilor de lucru ale programului. După lansare calcu- 
latorul afişează mesajul : 


TEST RAM 


SWITCH : cerîndu-se 2 octeți pentru precizarea modului de lucru. În 
regim automat cei doi octeți care reprezintă SWITH SOFT vor fi înscrişi 
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automat cu valorile : SWC1=01; SWC2=22 şi vor fi tipăriți pe ecran. În regimul 
MANUAL vor fi preluaţi de la tastatură, biții lor avînd următoarea semni- 
ficaţie : 


BITO —g— 

1 execută și testul complementar (subtestul adresare) 
BITI —g— 

1 Oprire la eroare : continuă cu comanda Z. 
BIT2 —9— 


1 Ciclează pe locaţia unde a apărut o eroare în textul SCCIL 
BIT3 —9— (BIT 10 inetectiv) 

1-— Inhibă tipărirea erorilor 
BITA —9— 

1— Ciclu pe subtestul definit de biții 6,7 
BIŢ5 —gp-— 

1— Inhibă tipărirea listei de erori după fiecare execuţie a subtestului. 
BIT6,7 — Cod subtest 
BIT8 —g-— Scrie la începutul fiecărui subtesi numărul corespunzător. 

—1 Oprire după fiecare subtest. 


BIT9 —g 
—1  Imhibă execuţia testului GALPAT 
BIT10 —9 
—1 Tipărește numai prima eroare din modul cînd BIT3=|. 
BITI1 —0 
—1 Execută subtestul PING PONG de 25 de ori 
BIT12 —0 
—1 Imhibă tipărirea lui, END PASS **' 
BIT13 —0 


— 1 Inhibă ciclul pe execuţia testului RAM 


Deci testul automat este caracterizat de următoarele : 

— execuția nu se opreşte la apariţia unei erori; 

— execută subtestele în ordinea crescătoare a codului ; 

— tipărește erorile şi lista de erori ; 

— inhibă erorile şi lista de erori ; 

— inhibă subtestul GALPAT ; 

— execută subtestul PING PONG o singură dată; 

— inhibă ciclul pe execuția testului RAM 

Cei 14 biţi se introduc după mesajul 'SWITCH :' (în regimul MANUAL) 
sub forma a 4 cifre hexa, astfel: 


Ig BIT 14 BIT13 BITI2 BITI BITIO BII9 sabii 
SWITCH 
BA țA BIT6 BIT5 BIT4 BIT3 BIT2 BITI BITO 


SWITCHI 
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Ordinea de introducere este: 
SWC2 (CR) SWC1 (CR). 
Codificarea și ordinea de execuție în regim AUTOMAT sint următoarei 3 


00— Aresare (ADR) 
(1— Scriere-citire (SCCIT) 
p2— PING PONG 

p3— GALPAT 


14.5.1. Deserierea modurilor de lucru ale programului roşu 


Testul adresare : (ADR) constă în scrierea succesivă în pagini de memorie 
de cite 256 de octeți a unui contor cu valoarea 0-FFH. La începutul fiecărei 
pagini contorul este dublu incrementat astfel încit se poate identifica ușor 
fiecare pagină de memorie. Informaţia "scrisă arată asttel: 


C000 00 01 02 ....FF 
C100 Di p2 03 ....FE 
C200 02 03 04 ....FD 


- 


Testul se aplică pe zone compacte de memorie. 


Facultativ se poate repeta testul, inversînd la scriere în memvurie cei doi 
cuarteți ai contorului. 


Testul scriere-citire (SCCIT) detectează biții de memorie blocaţi la zero/unu. 

Se scrie succesiv în fiecare locație configurația iniţială (de exemplu AA), 
apoi complementul ei și din nou configuraţia iniţială, verificîndu-se de fiecare 
dată corectitudinea operaţiei. Se aplică pe zone compacte de memorie. 

Testele PING PONG şi GALPAT operează la nivel de modul de 16 Ko 
(0, 4090H, 8000H, C00DH). Aceste teste necesită o subrutină (SGP) care deli- 
mitează din zona compactă de memorie RAM limitele modulului de testat 
(ADINEF respectiv ADSUP). 


Testul GALPAT : detectează delecte de adresare, selecție multiplă, 
timp de acces. După ce se scrie în modul configuraţia inițială, se parcurge 
succesiv fiecare locaţie : se scrie în ea configurația complementară și se veritică 
toate locaţiile modulului. Fiecare verificare este urmată de o verificare a loca- 
ţiei curente. La sfîrșit se reface locaţia curentă. Se repetă testul pentru contigu- 
rația complementară. Întrucît operarea cu fiecare locaţie implică verificarea 
întregului modul, testul durează de ordinul a cîtorva ore. 


Testul PING-PONG : este asemănător cu testul GALPAT, dar optimizat 
ca durată. După ce modulul de memorie este înscris cu configurația inițială 
se parcurge succesiv fiecare locaţie înscriindu-se cu configurația complementară. 
Pentru fiecare locaţie curentă se verilică 14 locaţii, fiecare verificare fiind 
urmată de verificarea locației curente. Adresele acestor locaţii se obțin pornind 
de la adresa locației curente, prin complementarea cite unui bit de adresă. 
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În continuare se prezintă programul care execută acest test. Subrutina 
SGP apelată anterior a pregătit adresele limită (ADINF, ADSVP) pentru 
modulele testabile. 


PING PONG: 
Pl: 


P21: 


P7:1 
P8! 


P3: 


P4: 


P5: 


CAL INIT 
CALL CYBR 
LDA ADINF 
MOV D,A 
MVI E,00 
LDAX D 
XRA B 

IZ P21 
PUSH B 
PUSH D 
CALL RWERR 
POP D 

POP B 
MOV A,C 
STAX D 
LDA ADINF 
CPI A0 

IZ P7 

M VI H,A15H 
IMP P8 
MVI H,14 
MOV A,H 
SUI 09H 
STA PNG 
MVI L,80 
PUSH H. 
MOV H,D 
MOV LE: 
XT HL 
DCRH 

IZ P6 

MOV AL 
RLC 

MOV L.A 
LDA PNG 


IZ P9 
PUSH B 
PUSH D 


CALL RWERR. 


; înițializare 
; copiază cuvint inițial între (ADINF, ADSUP) 


; (D,E) — adresa cuvîntului test 


; Se verifică dacă la adresarea cuvîntului de test s-a 
înscris configuraţia inițială. 


; subrutina de contorizare şi tratare a erorilor 


; Se înscrie în locaţia test configurația complementară 


; Se stabilește numărul de biţi care vor fi compleman- 
taţi din adresa cuvîntului test (pentru un modul întreg 
se complementează 14 biţi) 


; L — masca pentru complementarea unui bit din 
adresă 


Adresa cuvîntului test în stivă iar în H şi L contorul 
şi masca pentru complementare. 


masca devine L=01H 


Masca și contorul în stivă 
salt dacă PNG>contor de biţi 


; complementarea bitului din L 


; complementarea bitului din H 


; Adresa sfîrșit RAM 


salt dacă H> HMAX. 


-. 


locaţia derivată se compară cu configuraţia inițială. 


-. 
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POP D 
POP B 

P9: LR P ; se compară cuvintul test cu configuraţia complementată 
XRA 
JZ P3 ; dacă nu este eroare salt la complementarea următorului 
PUSH B bit de adresă 
PUSH D 


MOV B,C 
GALL RWERR 
POP D 

POP B 

IMP P3 


P6 POP H ; S-a terminat un cilu de verificare 
MOV A,B 


STAX D ; Rescriere cuvint iniţial la adresa 

INX D cuvîntului de test 

LDA ADSUP 

CMP D 

INZ P2 ; Dacă adresa următoare: ADSUP se închide bucla 
MOV A,B ku externă 

MOV B,C ; schimbă cuvîntul inițial cu cuplementarul său 
MOV CA 

LDA VARPRI a 

XRI 29 ; Se testează și modificăjITEST 

STA VARPRI 

ANI 20 ; Dacă INTEST=1 se execută testul și pentru configu- 
INZ P1 raţia complementară 


RET 


14.5.2. Organizarea testului RAM. În figura 14.2 este reprezentată sche= 
matic organigrama testului RAM. După iniţializări şi mesaje de început test, 
se cere precizarea octeţilor SWC2, SWC1 în regimul manual, iar în regimul 
automat ei sînt afișaţi, fiind determinaţi interior. 

În regimul automat zonele de test RAM au fost precizate la intrarea în 
programul TEST aMIC. În funcţie de SWC4, se execută testele în ordinea 
crescătoare a codurilor sau se ciclează pe testul dat de SWC67. 

Codul testului curent este memorat şi, pe baza lui, se crează adresa de 
salt la subtest şi codul eventualelor erori. Dacă SWC8=() atunci la începerea 
unui subtest se afişează codul subtestului curent, informind prin aceasta că 
testul anterior s-a terminat (în acest regim programul ru se oprește după 
subtest). După execuţia subtestului, dacă SWC8=1 se dă mesaj: END** și 
se pune la dispoziţia operatorului. Comanda CTRL-G va executa listarea 
erorilor şi predă controlul monitorului TEST aMIC. Dacă SWC5=1 se îmbibă 
listarea erorilor și continuă testul. In cazul în care subtestul terminat a fost 
GALPAT, se afișează sau nu END PASS**—funcţie de SWCI2. Afişarea este 
utilă în cazul în care se ciclează pe testul RAM. Bitul SWC11 decide dacă 
subtestul PING PONG se face o singură dată sau de 25 de ori. Se observă 
din organigramă complexitatea regimurilor de lucru a programului TEST RAM. 


Comanda R — testarea zonei de memorie RAM 231 


Pad 


MESAJ: 
»TEST RAM * 
SWITCH: 


Se introduc octeții 
SWC 2, SWC1de la 
tastatură . 


Cere: 
ZONE TESI RAM 


e Ș 
Chu pe testul 
NU dat de SWC 67 
Se incepe cu Sa formează m., 
testul .O testului 


1 Memorează codul 

” testului 
Creează adresa de 
salt la testul curent 


; DA 
Oprire după 
d az 
IESI a _a 


Sait la subtest 
Executa subtestuliui 


ENDTEST 


Fig. 14.2. Organigrama testului RAM. 
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Semnificaţia comenzilor pe parcursul testului este următoarea : 
GTRI„Z — repornire după subtest sau după oprire la eroare; 
GTRI-G — tipăreşte lista de erori la sfîrşitul subtestului curent în regim 
manual ; 
GTRL-G — oprire TEST RAM după subtestul curent. 


14.5.3. Modul de tratare a erorilor. Codul erorilor apărute în cursul tes- 
telor (ERR) indică în care subtest a apărut acea eroare : 


01 — Eroare de R/W în testul de adresare (probabil pinii de adresă defecți) 
02 — Eroare de R/W în testul SCRIE-CITEŞȘTE 

03 — Eroare de R/W în testul PING-PONG 

04 — Eroare de R/W în testul GAIPAT 


Prelucrarea , cantorizarea 
erori 


Fig. 14.3. Organigrama 
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ENDTE ST 
E 


MESAJ: 
END _%* %* 


OMANDĂ 
LISTAREA 
ERORILOR 
MESAJ: 
END RAM MESAJ 


CONT. LA CTRL-Z 


Li 
: MONITOR 
TEST KE VIN 
DA 


NI 


LISTAREA 
ERORILOR 


LISTAREA 
ERORILOR 


CTRL=-G 


Continuă subtestul 
dat de SWC 5,6 


> 


NU 


NU „“Subtest 
GALPAT 
DA 


INCREMENT NU 
COD TEST 


DA 


DA 


NU MESAJ: 
END PASSn* 


Sea 0 
Cicleaza test 


pentru RAM 
-4 MONITOR 
TEST 


Contor 
exec test 


NU 
CONTINUA 
PING PONG 


testării eroritor < 2. 
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Mesajul tipărit la apariţia unei erori are următoarea semnificație 3 


ERR 1 — Codul erorii apărute 

RDATA 1 — Data citită 

WDATA : — Data scrisă 

PC: — Valoarea PC la apelul rutinei de eroare 
ADR1 Adresa de memorie unde a apărut eroarea 
MODUL ! Numărul modulului 


Fiecare modul de memorie RAM (16K) are o zonă contoare distinctă, 
cuprinzînd : 

— un octet în care este înscris numărul modulului ; 

— 8 contoare pentru erorile de R/W, cite unulfpentru fiecare bit; 

— un octet „depășire, indicînd biţi pentru care numărul de erori > 256. 

Fiecare contor ocupă un octet, deci pot fi memorate distinct 256 erori. 
Pentru un număr mai mare de erori se afișează caracterul '*' în dreapta ecra- 
nului respectiv. Memoria RAM utilizată pentru DISPLAY nu este testată 
de către acest program, deoarece ea, este testată în cadrul testului DISPLAY. 
"în tigura 14.3 este prezentată organigrama de tratare a erorilor şi de 
oprire la eroare. 

După contorizarea erorii şi completarea bufferului de afişare, este testat 
bitul SWC3 care dacă este poziţionat pe „1“ permite afişarea erorii. Dacă bitul 
SWC10=“1“, eroarea va fi afișată numai dacă este la prima apariţie. Înainte 
de afişarea erorii, variabila FTRST este anulată. 

În funcţie de valoarea bitului SWC1, programul de testare va îi oprit 
sau nu. Subtestul SCRIERE-GITIRE permite buclarea pe locaţia eronată, 
dacă valoarea bitului SGW2=“1“. După retestarea locației, programul aşteaptă 
comandă de la operator. Dacă aceasta este CTRI--Z, testarea locației eronate 
este reluată. 

Pentru celelalte subteste și pentru subtestul SCCIT cu bitul SGW2=50, 


se va afișa mesajul 
STOP, ER.. 


după care se pune la dispoziția operatorului. Se poate continua textul cu co- 
manda CTRI--Z, încheind sub rutina de tratare a erorilor. 


14.6. Testarea transferului de informaţii dinspre/spre casetofon 


Pentru faza de punere la punct a interfeței cu casetofonul se comandă 
înregistrări cu informație constantă OH, FFH şi apoi AAH urmărindu-se cu 
osciloscopul forma și nivelul semnalului la intrarea în casetofon. La fel se urmă- 
reşte și redarea semnalului la intrarea în interfața programabilă internă. După 
ce se fixează nivelul optim al volumului la înregistrare și redare, se fac înre- 
gistrări lungi (pînă la 44 Kocteţi), cu informație constantă sau aleatoare, sau 
cu blocuri de date în care fiecare octet este identic cu octetul mai puţin semnifi- 
eativ de adresă, corespunzător. Se execută de citeva ori Încărcarea acestor 
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fișiere în memoria calculatorului și se verifică încărcarea atit prin suma de 
control a fișierului cît și prin programe de verificare a conţinutului fişierului 
îneărcat. Aceleași încercări se fac şi sub controlul interpretorului BASIG, cu 
ajutorul instrucțiunilor IL-OAD și SAVE. 


14.7. Procedura de test a interpretorului BASIC 


Procedura de test a interpretorului BASIG constă în reluarea unui set 
de programe în care apar toate instrucțiunile specifice acestuia. 

Aceste programe de test, scurte, trebuie alese astfel încît să solicite toate 
posibilităţile limbajului. Procedura de verificare a bunei funcţionări a interpre- 
torului BASIG 14 K, constă în rularea de programe de test scrise în limbajul 
BASIG. Aceste programe utilizează pe cît posibil cîte o instrucțiune sau o 
funcţie BASIC în așa fel încît se cunoaşte aprioric rezultatul, sau domeniul 
de rezultate. După rulare se verifică prin comparare dacă s-a ajuns la rezultatul 
aşteptat. 

În continuare se prezintă cîteva programe de acest tip (v. și cap. 9). 


14.7.1. Verificarea funcţiilor standard ! 


Funcţiile standard rezolvate în interpretorul BASIC sînt : sinus, cosinus, 
tangenta, arctangenta, logaritm, funcţia exponențială, radical, ridicare la putere. 
Se ştie că: 


sin X] 
cos X 


tg x= 


Se verifică dacățpentru un X dat, funcţiile BASIG satisfac această egalitate. 


19 X=90 

20 Y=TAN (X 

30 pa i Cos, iai 
49 PRINT Y 

50 STOP 


Se verifică egalităţile următoare : 
sin2x+-cos2x=1 


tg (arc tg (x))=x 


ela: xX=x 


19 FOR X=0 TO 

20 PRINT X, SIN Coae.cos (2 
39 NEXT X 

49 STOP 


16 FOR X=—10 TO 10 

20 PRINT X, TAN (ATN (X)) 
30 NEXT X 

49 STOP 


256 Testarea resurselor hardware și a interpretorului BASIC 


19 FOR X=1 TO 19 
39 PRINT X, EXP (LOG (X)) 
39 NEXT X 

44 STOP 


Se calculează rădăcina pătrată dintr-un număr dat de utilizator prim 
formula interactivă : 


unde A este numărul introdus; 
Y, este o valoare arbitrară inițială 


Iteraţia se opreşte cînd (Y;41—Y:)=0. Se tipăreşte valoarea astfel obţinută. 
Be tipărește apoi şi valoarea obţinută prin funcţia BASIC de rădăcină pătrată 
(SQR) şi se compară cele două rezultate astfel obţinute. 


19 REM “RADACINA PATRATA” 

20 PRINT ''DATI NUMARUL” 

30 INPUT A 

40 B=INT (RND (X)*A)+1 

50 REM “'B=Y ARBITRAR ALES" 
55 REM “IN FUNCTIE DE A” 

60 Y=0.5*(B+A/B) 

70 IF B=Y THEN 199 

89 B=Y 

99 GOTO 60 

100 PRINT "RADACINA PATRATA” ; 
195 PRINT “PRIN ITERATIE:” ;Y 
110 X=SQR (A) 

120 PRINT "RADACINA PATRATA” ; 
125 PRINT ''PRIN FUNCTIE SQR: “; X 
130 Z=ABS (X—Y) 

149 PRINT "DIFERENTA +”! ; Z 

159 STOP 


Funcţia internă de generare numere aleatoare (RANDOM), pune la dis- 
poziţia utilizatorului cîte un număr aleator în domeniul (0, 1). Se generează 
tabele de cîte 10 numere variabile în diferite domenii, înmulţind numărul 
aleator cu diferite constante şi/sau luînd valoarea întreagă cu funcția INTEGER. 


10 REM “VERIFICARE RANDOM” 

29 PRINT “VALORI REALE ÎNTRE 0 SI 1” 

30 FOR 1=1 TO 10 

49 PRINT END (X), 

50 NEXT I 

60 PRINT ''VALORI REALE ÎNTRE 0, 10 SI 0, 100” 
70 FOR 1=|1|T0 19 

39 PRINT RND (X)*10; RND (X)*100 

99 NEXT 1 

109 PRINT ''VALORI INTREGI INTRE 0, 10 SI 0, 109” 
119 FOR I=1 TO 10 

120 PRINT INT (AND (X)*10); INT (AND (3)*100) 
139 NEXT 1 
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149 PRINT “'VALORI INTREGI INTRE 0, 6 ŞI 10, 20 
150 FOR 1=1 TO 10 

160 PRINT INT (AND (X)*6); INT (AND (X) * 10410) 
170 NEXT 1 

189 STOP 


Prin funcţia PLOT se poate aprinde un punct pe ecranul TV, considerind 
ecranul de 64*64 puncte. Se trasează curba sinus cu funcţia PLOT și se şterge 
cu funcţia UNPLOT. 


19 INIT P 
20 FOR N=1 TO 64 

39 PLOT N, 22+20*SIN (N pga*PI) * 

49 NEXT N 

50 FOR N=1 TO 64 

60 UNPLOT N, 22+20*SIN (N/32*PID) 
70 NEXT N 

80 STOP 


Funcţia RANDOM se poate verifica şi cu funcția PLOT. Se umple ecranut 
aleator prin funcţiile RANDOM şi PLOT cu puncte aprinse. Dacă această 
variaţie aleatoare umple relativ uniform ecranul, funcţia RANDOM este 
aleatoare. 


19 INIT P 2] 
20 PLOT INT (AND AR ovie că INT (AND (X)*644$1) 
30 GOTO 20 

49 ENC 


Funcţia PLOT aprinde un punct pe ecran și UNPLOT stinge punctul pe 
ecran. Se poate astfel aprinde şi stinge acelaşi punct obţinînd astiel o pulsaţie 
a unui punct. i 


10 INIT P7* 

20 X=RND (X) 

30 Y=RND (Y) 

40 FOR I=1 TO 19 

50 PLOT INT (X*64)+-1, INT (Y*64)--1 
60 UNPLOT INT (X*64)-+1, INT (Y*64)4" 
70 NEXT 1 

80 SIOP 


Funcția PRINT AT (X, Y) permite afișarea pe ecran, la coordonate 
date, a unei informaţii. Ecranul este văzut ca formînd 32 de linii a cite 30 de 
caractere. În instrucțiune, X este linia şi Y coloana de unde se va începe afişarea. 


Se afişează pe ecran un tabel de fermă cunoscută. eee 


19 INIT P 

20 PRINT AT (2, 2); "TABEL CU NUMERE“; 
25 PRINT ''DE TELEFOANE” 

39 PRINT AT (3, 2); S$ 
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40 PRINT AT(6, 5); "NUME 1 PREFIX I'; 
45 PRINT “NR. TEL.” 

59 PRINT AT (7, 2); S$ 

39 FOR 1=8 TO 16 STEP 2 

70 READ N $ (10) 

80 READ N 

100 PRINT AT(, 2); N$; "1';P; "1; N 
119 PRINT AT (141, 2); S$ 

120 NEXT 1 

139 STOP 

140 DATA "NUME 1”, 971, 12345 

150 DATA "NUME 2", 90, 457321 

160 DATA ---: 


200 DATA --: 
SIA XX == —=OO£OEEO£OO£O££O£Z£———£—O£—OO£OEOZO— E! 
220 END 


Aprinderea şi stingerea unei zone prin instrucția PRINT AT (X, Y) 


19 INIT P 

20 X= INT (AND, X)*64)41 
30 Y=INT (RND (Y)*64)$1 
49 FOR I=i TO 29 

5) PRINT AT(X, Y); 1.” 
80 PRINT AT (X, Di a! 
70 NEXTAI 

8p STOP 


[g  Caracterul care aparţine la o valoare A se obţine prin CHR$ (A). Setul 
de caractere se afișează prin următorul program. 


ip PRINT “SETUL DE CARACTERE” 
20 FOR A=0 TO 256 

30 PRINT A, CHR$ (A 

49 NEXT A 

50 STOP 


Funcţia INKEY$ permite utilizatorului să dea unei vanabile şir valoarea 
tastei apăsate. Următorul program permite utilizarea aMIC-ului ca mașină 
de scris. Apăsarea tastei RETURN poziţionează pe linie nouă. 


19 INITP 

20 AS=INKEY$ 

30 BS=INKEY$ 

40 IFŢAS=BSJTHEN 39 

50 REM "S-A TASTAT UN_CARACTER'” 
60 PRINT B$ 

79 GOTO 29 

89 END 
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Valoarea variabilei șir se obţine prin funcţia VAL. 
Dacă la linia 20 schimbăm expresia și la linia 30 valoarea lui X, putem 
efectua verificări pentru diferite expresii şi valori ale lui X. 


10 PRINT “VALOAREA EXPRESIEI'| 
20 F3 ="2X4 2—X+1” 

30 FOR X=1T0 5 

40 T=VAL (F$ ) 

50 PRINT "EXPRESIA :" ,F3. 

60 PRINT “PENTRU X=" 

70 PRINT “ARE VALOAREA ' i, 

80 NEXT X 

29 STOP 


Se permit în Interpretorul BASIG trei bucle suprapuse. În următorul 
program există trei bucle K, J şi I. Totodată se lucrează cu instrucţiuni matriciale. 


10 PRINT ''ORDONAREA UNUI SIR” 
20 READ N 

30 DIM A (N) 

40 MAT READ A 

50 FOR I=1 TO N—1 

60 FOR J=I+1 TON 

70 IF A (D<A (J) THEN 130 

80 B=A (I) 

99 FOR K=J TO I1+1 STEP —t 
100 A (K)=A (K—1) 

110 NEXT K 

120 A (D=B 

130 NEXT J 

149 NEXT 1 

150 PRINT “'ŞIRUL ORDONAT”! 
160 MAT PRINT A 

170 STOP 

180 DATA 5 

199 DATA 10, 30, 5, 15,5 

209 END 


În funcţie de valoarea unui număr se pot executa diferite secvențe de 
program cu instrucțiunea ON. Pentru a verifica această instrucțiune se tas- 
tează un număr X de utilizator şi dacă pe ecran apare „aţi bătut X*“ atunci 
funcționează corect. 


10 REM "VERIFICARE ON — GOTO”! 
20 PRINT ''TASTATI UN NUMĂR” 
30 INPUT M 

49 ON M GOTO 80, 100, 120, 140, 160, 130, 200, 220, 240 
50 PRINT "ATI TASTAT 0” 

60 GOTO 29 

80 PRINT “ATI TASTAT 1” 

29 GOTO 20 

109 PRINT ''ATI TASTAT 2" 

119 GOTO 20 

129 PRINT “ATI TASTAT 3" 

139 GOTO 29 
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149 PRINT “ATI TASTAT 4” 
150 GOTO 20 

160 PRINT “ATI TASTAT 5“ 
170 GOTO 20 

180 PRINT “ATI TASTAT 6” 
199 GOTO 20 

200 PRINT “ATI TASTAT 7” 
210 GOTO 20 

220 PRINT “ATI TASTAT 8“ 
230 GOTO 20 

240 PRINT “ATI TASTAT 9 
230 GOTO 29 

260 END 


Utilizarea instrucțiunilor READ, MATREAD, RESTORE se exempli- 
fică în următorul program. A se observa că nu se ajunge niciodată la citirea 
valorilor 3 din blocul de date. 9 LO 


maiaia 


19 REM “DATA, READ, MAT READ; 
20 READ A, B, C 

30 PRINT A, B, C 

40 READ A, B, C 

50 PRINT A, B, C 

6) RESTORE 

70 MAT READ D (6) 

50 MAT PRINT D 

99 STOP 

190 DATA 1, 1,1,2,2,2,3,83,8 
119 END 


Următorul puogram utilizează instrucțiunile cu şiruri de caractere. 


10 PRINT ''SUPRAFAȚA” 

15 PRINT "DREPTUNGHI, TRIUNGHI, CERC” 
20 INPUT S$ 

30 IF S$ =''DREPTUNGHI” THEN 70 

40 IF S$ ='""TRIUNGHI” THEN 110 

50 IF S$ ="'CERC” THEN 169 

60 GOTO 20 

70 PRINT ''DATI LUNGIMEA SI LATIMEA": 
30 INPUT B, C 

99 Zz=B*C 

190 GOTO 199 

110 PRINT “DATI LUNGIMILE LATURILOR” 
120 INPUT A, B, C 

130 S=(A+B+0)/2 

140 Z=SQR (S* (S—A)*(s—B)*(S—C)) 

150 GOTO 199 

160 PRINT ''DATI RAZA” 

170 INPUT R 

180 Z=PI*R 42 

190 PRINT ''SUPRAFATA”' ; S$; ="; Z: 
200 GOTO 19 = 

210 END 


Apelul de subprogram scris în limbaj BASIC se face prin GOSUB nr. 
Prima instrucțiune RETURN întilnită provoacă revenirea la instrucțiunea 
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următoare instrucţiunii GOSUB executate ultima dată. În următorul program 
se verifică unele posibilități de salturi la subprograme în BASIC. Primul 
RETURN întîlnit la care nu există pereche GOSUB provoacă oprirea execu- 
tării în continuare a programului. 


20 REM "UTILIZĂRI GOSUB ŞI RETURN!” 

25 REM "APEL SPR. LA PRIMA INTRARE” 

30 GOSUB 200 

35 PRINT “'REVINE DIN SPR 20 

40 REM "APEL SPR. INTERIOR” 

50 GOSUB 210 

60 PRINT "REVINE DIN SPR 210” 

55 REM ''APEL SPR. 300 REVINE CU GOTO” 
60 GOSUB 300 

65 PRINT "REVINE AICI PRIN RETURN URMĂTOR! 
70 PRINT ''REVINE PRIN GOTO DIN SPR 30 
75 REM ''URM. RETURN E PRIMUL ÎNTÎLNIT”! 
80 REM ''DUPĂ GOSUB 300, REVINE DUPĂ EL” 
85 RETURN 

90 REM “AICI NU SE AJUNGE” 

25 STOP 

200 PRINT "INTRARE SPR. 209” 

210 PRINT ''CORPUL SPR. 200” 

220 RETURN 

300 PRINT “INTRARE SPR. 309” 

319 GOTO 79 

400 END 


Pe ecran apare deci: 
Intrare spr. 200 


Corpul spr. 200 
Revine din spr. 200 


Corpul spr. 200 

Revine din spr. 210 

Intrare spr. 300 

Revine prin GOTO din spr. 300 
Revine aici prin RETURN următor. 


Utilizarea subprogramelor scrise în limbaj mașină e posibilă prin instruc- 
țiunea CAII. Următorul program în limbaj BASIG cheamă primul subprogram 
în eod maşină 


10 REM "CALL" 
20 CALL (1) 
30 STOP 


Subprogramul scris în limbaj mașină se introduce în memoria calcula- 
torului deeodificat în hexazecimal, prin funcţia S (substituție) din monitor. 

Se dorește introducerea unui subprogram care să genereze în mijlocul 
ecranului caracterul A, diferit de caracterul A dat de generatorul de caractere 
al monitorului. Se cheamă subprogramul de inițializare ecran al monitorului 
și subprogramul de scriere caracter. 


CALL INITV 
LXI H, (ADR MIJLOC ECRAN TV) 
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LXI D, (ADR GENERATOR A PROPRIU) 
MVI A, 6 
CALL WR26 
RET 
CARGEN DB 6, 9, 9,F, 9,9, 


Se va folosi următoarea secvență de substituire S$: 


6400 01 ; NR. SUBPROGRAM 
FF 66 ;ADR SPR 1 
FF ; SFIRSIT TABEL SPR 
66FF CD A4 g2 ; CALL INITV 
21 A 50 ; LX1 H, 500A 
11 0OE 67 ; LXI D, CARGEN 
sE 06 ; MVIA, 6 
CD 05 02 ; CALL WR26 
C9 ; RET 
670E£ 6 09 09 ; CARGEN PT. A 


Pentru verificarea funcţiilor grafice MOVE, DRAW se dau în continuare 
cîteva curbe specifice : 
a) O serie de curbe sinusoidale 


60 MOVE X, Y 

70 FOR 1=0 TO 3*PI STEP P1/16 
80 DRAW Z, SIN (1)%254Y 

9% Z=2+2 

190 NEXT 1 

119 X=X+2 

120 Y=Y+2 

130 IF X <=26 THEN 50 

149 STOP 


b) O serie de cercuri care formează un con. A, B — coordonatele centru- 
lui primului cerc. 


20 READ A, B 

30 READ X, Y 

49 INIT P 

50 FOR T=1 TO 25 

60 MOVE A+T, B 

70 FOR I=1 TO 2*P1 STEP PI/10 
80 DRAW A+T*COS (1), B4&T*SIN (1) 
99 NEXT I 

100 A=A+X 

119 B=B+Y 

129 NEXT T 

130 STOP 

149 DATA 19, 19,5, 5 

150 END 
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| | c) Linii de lungimi variabile din cele patru colțurij alej ecranului 


19 INIT P 

20 MOVE 0, 0 

30 DRAW RND (X)*109, RND (X)*109 

40 MOVE 109, 1 

50 DRAW 100—RND (X)*100, 100—RND (X)*10p 
60 MOVE 9, 109 

79 DRAW RND ()*100, 100—RND (3X)*100 
30 MOVE 109, 0 

90 DRAW 100—RND (X)*100, RND (X)*100 
199 GOTO 29 

110 END  j 


Trasarea unei figuri cu insirucţiile BASIC RMOVE şi RDRAW şi rotirea 
figurii cu ROTATE. Se trasează un triinghi și se roteşte acest triunghi. 


10 INIT P 

20 WINDOW —50, 50, —50, 50 

25 MOVE 9, 

30 FOR U=0 TO 2*PI STEP PI/19 
35 ROTATE U 


49 RDRAW 10, 0 

45 RDRAW 10, 10 

50 RDRAW —29, —1( 
55 NEXT U 

60 STOP 


Verificarea funcţiei WINDOW și VIEWPORT. Se trasează un cerc de 
o mărime dată la diferite valori pentru WINDOW şi VIEWPORT. Se observă 
că trebuie aleasă mărimea și zona ecranului în funcţie de mărimea figurii, 


19 INIT P 
20 REM ''WINDOW SI VIEWPORT IMPLICIT” 
25 REM “9, 100, 0, 100” 

39 REM "APARE PE ECRAN 1/4 CERC” 

40 GOSUB 200 

50 INIT P 

60 WINDOW —50, 59, —59, 50 

70 REM ''VIEWPORT IMPLICIT”! 

75 REM “0, 100, 0, 190 

80 REM “APARE TOT CERCUL ÎN MIJLOC ECRAN 
99 GOSUB 209 

190 INIT P 

110 WINDOW —59, 50, —50, 50 

120 VIEWPORT 50, 100, 50, 100 

130 REM "APARE CERCUL ÎN DREAPTA SUS” 
149 GOSUB 200 

159 STOP 

209 MOVE 25, 0 

210 FOR 1=0 TO 2*PI STEP P1/19 

220 DRAW 25*COS (1), 25*SIN (1) 

230 NEXT 1 

240 FOR 1=1 TO 50 

250 REM ''TEMPORIZARE” 
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260 NEXT 1 
279 RETURN 
230 END 


Trasări de pătrate care se măresc; în video normal şi video invers. 


20 INIT P 
.30 PUT (34)=128 

40 GOSUB 199 

50 INIT P 

:60 PUT (34)=160 

70 GOSUB 109 

89 GOTO 29 

109 MOVE 59, 50 

110 FOR L=10 TO 190 STEP 10 
120 MOVE 59—L/2, 50—L/P 

130 RDRAW L, 0 

149 RDRAW 0, L 

150 RDRAW —L, 0 

160 RDRAW 0, —L 

170 NEXT L 

189 RETURN 

190 END 


Bateria de teste, odată trecută, ne dă posibilitatea de a opera cu încredere 
cu exemplarul de aMIG. 
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ANEXA 3 


COLECȚIE DE PROGRAME PENTRU REZOLVAREA UNOR PROBLEME DE 
MATEMATICĂ DIN MATERIA CLASELOR A IX-A ȘI A X-A 


Proicctarea și realizarea microcalculatoarelor individuale în ţara noastră creează premisele 
necesare introducerii lor în învățămîntul liceal, în cadrul laboratoarelor de matematică, fizică, 
biologie, etc. 

Trebuie amintit faptul că în acest an a intrat în fabricaţie de serie, la Întreprinderea de 
memorii electronice din Timișoara, microcalculatorul aMIC. 

Ministerul Educaţiei și Învățămîntului a comandat circa o sută exemplare, care vor intra 
în acest an în dotarea unor instituţii de învățămînt superior. Se prevede ca acţiunea de dotare 
să se extindă și la nivelul liceelor. 

Între timp, specialiștii în tehnica de calcul din țara noastră au proiectat noi tipuri de 
microcalculatoare individuale, dintre care se amintesc: HC-85, PRAE și DEGA-299. 

Interesant este microsistemul HC-85. care a fost proiectat la Catedra de calculatoare 
din Institutul Politehnic București și care va intra în curind în fabricaţie de serie la Întreprin- 
derea de Calculatoare Electronice. 

A vînd în vedere performanţele acestor calculatoare legate, de implementarea unor limbaje 
evoluate (BASIC, PASCAL, FORTRAN, MICROPROLOG, FORTH, etc.), posibilitatea de 
folosire a unui ecran color pentru vizualizare, cît şi faptul că ele vor putea intra în dotarea liceelor, 
în cele ce urmează se va prezenta o colecție de prozrame în BASIC, pentru asistarea studiului 
unor capitole de matematică din materia claselor a IX-a șia X-a. 


1. PROGRAME PENTRU CALCULE CU POLINOAME 


Se prezintă programe pentru : 
— împărţirea unui polinom de un grad oarecare n cu polinoame de gradul intii și doi, 
ireductibile şi unitare în R, adică de forma ; x+a și x42+px+q, 
— calculul valorii unui polinom, 
— calculul rădăcinii reale a unui polinom într-un interval dat, știind că la capetele inter- 
valului [a, b], polinomul ia valori de semne contrare şi că în acest interval funcția polinomială 
este strict monotonă. 


1.1. PROGRAM PENTRU ÎMPĂRȚIREA UNUI POLINOM CU UN BINOM 


Fie polinomul : 
n 
a;x"-! și binomul: x+a. 


i=0 
n 
Considerind citul de forma : y, b;x"-1 şi restul de forma : baza rezultă următoarele : 
il 
n n 
y, a xi = [5 LA ca *(x+a)+ ba sau 
i=0 i=0 
n n 
Ş, a X-1=by xtl+ y, (br ab) x". 
1=0 i=0 
Prin identilicare se obţin următoarele relații : 
bg=0 
a; =bia+ ab, pentru i=0, 1, 2,...,n 
sau : 
bua=a—a-b; 
şi restul: 


bu=a.—a -b; 
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20 PRINT “introduceți gradul n ai polinomului” 
38 INPUT n 

40. PRINT “pn="j.n 

50 PRINT ““introduceţi coeficienții polinomului SUMA” 
(a(i)*xA (n—1)) 

60 DIM a (2*n) 

65 DIM b (2*n) 

79 FOR i=0 to n 

SU POINI “a; 1) 

85 INPUT a (i+1) 

90 PRINT a (i+1) 


100 NEXT i 

110 PRINT “introduceţi termenul liber a al divizorului“ 

120 INPUT a 

130 PRINT “a=“; a 300 REM afisare rezultate 

200 REM calculul citului 310 FOR i=1 TOn 

210 b (1)=0 320 PRINT “b(;i;)=";b”i+1) 
220 FOR I=1 TO n+i 330 NEXT i 

230 LET b (i+1)=a ()—a*b (1) 340 PRINT “r=*; b(n+2) 

240 NEXT i 350 END 


1.2. PROGRAM PENTRU ÎMPĂRŢIREA UNUI POLINOM DE GRADUL n CU 
YRINMOMUL x î 24+-px4-q- 
Se consideră : 
n 
— polinomul de forma ! Ş, aa 
(m 9 
n 
— cîtul de forma: > bat 
1l=90 
— restul de forma rx+s, 
prin identificare, din relaţia : 


n n 
y, a, x*-t= ( Ş, b, m! » (xț2-+- px-+ q)+rx-+ s 
i=0 1=0 


se obţin următoarele rezultate : 
bo=0 T=baa 
în=1 s=buşat PData 
bea = at — Pbia — ha 


10 REM împărțirea unui polinom de gradul n cu un trinom 
20 PRINT “introduceţi gradul n al polinomului” 

30 INPUT n 

40 PRINT ”n=%; n . 

50 PRINT “introduceţi coeficienţii polinomului SUMA (a (i) * x (n—1))” 
60 DIMA (2*n) 

65 DIMB (2*n) 

70 FOR i=0 TO n 

80 INPUT a (i+1) 

90 PRINT “a (“; i; %0)="1 a (1441) 

100 NEXT i 

200 PRINT “introduceţi coeficienţii divizorului x+2+p.x+ q” 
210 PRINT “introduceţi p” 

220 INPUT P 

225 PRINT 'p=“j P 

230 PRINT “introduceţi q” 

240 INPUT q 

250 PRINT “q=“; q 

300 REM calculul coeficienţilor citului 
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310 LET b (1)=0 410 FOR i—2 TO n 

320 LET b (2)==0 420 PRINT “b(; i; ="; b(i1) 
330 FOR i=1 TO n+i1 439 NEXT i 

349 LET b (i+2)=a (i)—p*b (i+ 1)—q*b (î) 440 PRINT 'r="”; b(n4+2) 

350 NEXT i 450 PRINT “s="”; b(n+3)+p*b (n? 2) 
400 REM afişare rezultate 590 END 


1.3. PROGRAM PENTRU CALCULUE VALORII UNUI POLINOM DE GRADUE n 


Programul foloseşte algoritmul! lui Horner pentru calculul valorii polinomului + 


[.] 
P (x)-+ Ş, a-i 
1==0 


Polinomul P (x) poate fi scris și sub următoarea formă : 
P (x)=ant-x (Fă (ab (ab 2 (20)))..... ) 


Calculul începe cu produsul cu cel mai mare grad de imbricare x-a. 
10 REM calculul valorii unui polinom de gradul n 

20 PRINT” introduceţi gradul n al polinomului”” 

30 INIT n 

40 PRINT n="n 

50 PRINT “introduceți coeficienţii polinomului SUMA (a(î)*x 4 (n—i))” 
60 DIM a (2*n) 

70 FOR i=0 TO n 

80 INPUT a (i+-1) 

90 PRINT “a (9 i ; tt; a (+1) 

100 NEXT i 

110 PRINT “introduceţi valoarea lui x” 

120 INPUT x 

130.PRINP “x și x 

200 REM calculul valorii polinomului prin metoda Ho rner 
210 LET p=a (1) 

220 FOR i=1 TO n 

230 LET p=p*x+a (i+1) 

240 NEXT i 

300 REM atișarea rezultatului 

310 PRINIE 'p$ 23 dp 

320 END 


1.4. STABILIREA SOLUȚIEI UNEA ECUAŢII PRIN METODA DIHOTOMIEI 


Se ştie că dacă funcția f este continuă și strict monotonă în intervalul [a, b] și dacă £ (a)+ 


-î (b)<0, atunci ecuaţia : £ (x)=0 are o rădăcină unică în [a, b]. 


Dacă e este un număr pozitiv și dacă xse[a, b], iar f (a —e):f (x9+- e)<0, atunci x, este 


o rădăcină a ecuaţiei date cu o precizie e. 


Calculul numeric al produsului î (xe—e)«f (x,-> e) este în general aproximativ. Se impune 


ca precizia să [ie suficientă pentru ca 


E (30): (ab e)a0. 
Se consideră jumătatea intervalului [a, b] : c=(a-Pb)/2 şi se testează semnul lui f (a) « 


-f (c). Dacă f(a)'f (c)<0, rădăcina aparţine lui [a, ec], în caz contrar aparține lui [c, b]. 


Se construiesc următoarele intervale : 
[ay, bol=la, b] 


A [a, c], dacă £(a).î (c)<0 
“Ale, b], dacă t(ajt(c)>0 


.. |... .... .....cnarassee 
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Lungimea intervalului [ax, b„] este (b—a)/24 n. Dacă se dorește o precizie e, atunci 
este suficient să se construiască [an, b„] pentru un n astfel încît (b—a)/24 n<e. 


10 REM stabilirea soluției unei ecuaţii folosind metoda dihotomiei 

20 PRINT “introduceţi datele: a=lim. stinga; b=—lim. dreapta; e=—precizia 
30 INPUT a 

35 PRINT “a=*; a 

40 INPUT 

45 PRINT “b=*; b 

40 INPUT e 

50 PRINT 'e=*; e 

51 PRINT “introduceţi gradul n al polinomului” 


52 INPUT n 

56 PRINT "="; n 

58 PRINT “introduceţi coeficienţii” 130 IF d=0 THEN 200 
60 DIM a (2*n) 140 IF d<0 THEN 160 
62 FOR i=0 TOn 150 LET a=c 

64 INPUT a (i+1) 153 LET x=z 

66 PRINT “a(”;i; %)=";a(i+1) 155 GO TO 170 

68 NEXT i 160 LET b=e 

80 REM calculul lui î (a) si î (b) 165 LET y=z 

90 LET c=a 170 IF b—a > e THEN 100 
92 GO SUB 1210 200; PRINT *c=*; e 

94 LET x=z i 210 STOP 

96 LET c=b 1210 LET p=a (1) 

98 GO SUB 1210 1220 FOR i=1 TOn 

99 LET y=z 1230 LET p=p*eta (i+1) 
100 LET c=(a+b)/2 1240 NEXT i 

110 GO SUB 1210 1250 LET z=p 

120 LET d=x*z 1260 RETURN 


2. CALCULUL INTEGRALEI DEFINITE PRIN METODA SIMPSON 


Pentru calculul integralei definite se folosește formula : 


s=$, t (x)- dx=(h/3)e [(Yotk Yap)k 4 (at Yar «et Yap-a)] + 2 (Yart Ya e + + Yap-2) 


unde : 
h = (2p—X0)/2-p este pasul, 
p = numărul de diviziuni. 
y = fî (a) se dă la linia 500 din program; în cazul de față 
y= ((—2):x—1)*%x+2. 


10 REM CALCULUL INTEGRALEI DEFINITE 
20 PRINT "X0="; 


30 INPUT D 

40 PRINT *NX2P=* 

50 INPUT E E 

60 PRINT “P="; pi 

70 INPUT P 170 GOSUB 500 

80 B=(E—D)/2/F 180 A=Y+A 

90 A=0 190 F=F-—1 

100 X=D 200 IF F=0 THEN 220 
110 GOSUB 500 210 GO TO 40 

120 A=Y+A 220 C=A*B/3 

130 X=X+B 230 PRINT “"REZ=? ; C 


150 X=—4*Y+A 500 Y=((X—2)*X—1)*X+2 


140 GOSUB 500 240 STOP 
160 X=X+B " 510 RETURN 


EDITURA TEHNICĂ 


(continuare de la vol.'1) 


e Un număr la fel de important de programe, din toate domeniile de apli- 
cație, rezolvă probleme simple și complexe de matematică-fizică din in- 
dusirie și învățămint (aici este inclus și un îridrumar pentru predarea mate- 
mațicii asistate de calculatorul personal) ; alte programe rezolvă jocuri, 
trasează gratice și figuri etc. 

e Specialiștilor le „atragem atenția asupra existenţei comenzilor pentru 
toate tipurile de monitoare aMIC și — în arest context - asupra expunerii 
complete a microprocesorului 280, cum și a uneia succinte a microproce- 
soarelor 8080. - su 

e Sînt incluse programe de testare și indicații de depanare, ca și referiri 
concrete la perifericele utilizabile cu aMIC -— display-uri [feleşrsbare 
SPORT, de exemplu), casete ș.a. 
e Editura Tehnică se mindrește cu activitatea sa de pionierat în sprijinirea 
introducerii intensive, « calculatoarelor personale românești și recomandă 
cu căldură consuharea acestei cărți din noul ciclu „Totul despre . î Că 
și a altor cărți de informatică, inclusiv'a volwmelor din seria continuă AMC 
(Automatică-Managemeni-Calculatoare). 
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